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DXMCA - DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE 
DXMCA MAC 23-Sep-8i 15:20 



VERSION 4,7 



MACRO %53B<U55) 15*46 15-Feb-82 Page 1 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



000004 
000007 



EDIT«4 
VERSION*7 

XLIST 
liIST 



TITLE DXMCA - DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 



DXMCA - DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 MACRO |53B(li55) I5i46 15-Feb-82 Page 2 

DXMCA MAC 23-Sep-81 15;20 CONFIGURATION PARAMETERS 

16 SU8TTL CONFIGURATION PARAMETERS 
17 

18 /EDITS 1-4 WERE DONE FOR REV 0.2 

19 , 



20 




EDIT 


1 


3/22/79 FIXES WRONG MODE SETTING 


21 


t 






FOR 556 BPI 7 TRACK ODD PARITY W.FARBER 




;C23 


EDIT 


2 


30-JUL-79 FIXES WRONG FLAG SETTING FOR 'STARTC STARTING 


23 


t 






ADDRESS, 


24 


f C33 


EDIT 


3 


4-OCT-79 ADDS 3-4 SEC TIMEOUT IF READ TRANSFER DOES NOT 


25 


; 






BEGIN. 


26 


; C4] 


EDIT 


4 


INHIBITS RUNNING OF TESTS 21,22 UNLESS MICROCODE IS STARTED 


27 


; 






AT STARTB,C,D. 



28 ; 

29 ; EDIT 5 WAS DONE FOR REV 0,3 

30 ; 

31 ;C5J EDIT 5 RESTORED 'FLAGS' FROM MASSBUS REGISTER INTO AC4, WHICH WAS 

32 ; DESTROYED BY CODE ADDED FOR EDIT £33, 

33 ; 

34 ;EDIT 6 WAS DONE FOR REV 0.4 

35 ; 

36 ;C63 EDIT 6 CHANGED CODE TO INDICATE CHAINING ON CONTROL UNIT INITIATED 

37 ; SEQUENCE WHEN DEVICE END IS NOT PRESENTED, 

38 ; 

39 j EDIT 8 WAS DONE FOR REV 0,6 

40 ; 

41 1 183 EDIT 8 CHANGED SEQUENCE OF LOADING ASYNCH STATUS TO LOADING DRIVE 

42 ; NUMBER FIRST THEN STATUS, 

43 j 

44 j EDIT 9 WAS DONE FOR REV 0,7 

45 ; £93 EDIT 9 ADDED CODE TO CHECK FOR GO BIT BEING SET BEFORE SETTING ATA 

46 ; TO TELL HOST THAT ASYNCH STATUS IS AVAILABLE, FIXES PI 5 

47 ; INTERRUPT PROBLEM 
48 

49 

50 /THIS MICRO-CODE IS DESIGNED FOR USE ONLY IN THE DX20 PROGRAMMED DATA 

51 / ADAPTER WHEN CONNECTED TO A TXOl OR TX02 MAGNETIC TAPE CONTROL UNIT 
52 

53 

54 /DRIVE TYPE OF DX20 IN CONFIGURATION 

55 

56 050060 TYPE*050060 f ONLY THIS DRIVE TYPE WILL BE PERMITTED 

57 

58 /THE FOLLOWING IS A KEY WORD USED TO IDENTIFY THE PRESENCE OF THIS 

59 / MICRO-CODE IN THE DX20 CONTROL STORE RAM 
60 

61 000100 KEYWRDalOO /VERSION 100 MICRO-CODE 

62 

63 

64 

65 

66 

§7 

68 

69 

70 SEARCH DX20CA f READ THE CROSS ASSEMBLER 



DXMCA • DX20-V100 MAGNETIC TAPE 
DXHCA MAC 23-S6P-81 15S2Q 



SUBSYSTEM MICRO-CODE 
MASS6US 



VERSION 4 # 7 



MACRO %53B(1155) 15J46 15~Feb-82 Page 3 



7 1 




72 








74 




75 




76 


000000 


77 


000001 


78 


000002 

y w w v v » 


79 


000174 


80 


000004 


81 


000010 


82 


000020 

V >f V V 4W >* 


83 


000040 




000100 


ft ^ 


000200 






87 




88 




89 


000001 




000001 

V V Vf V V «i> 


91 


000001 

T# V >r V »r **r 


92 


000002 




000002 


94 


000004 


95 


000004 


96 


000010 


97 


000020 


98 


000040 


99 


000100 


100 


000200 


101 




1 02 




JH V 




104 


000002 

W V V V V 4w 


IDS 




106 

<ir V W 




107 




108 




109 


000003 

V V v "v V wff 


110 




ill 




112 




113 




114 


000004 


115 





REGISTER BIT DEFINITIONS 
SUBTTL MASSBUS REGISTER BIT DEFINITIONS 

; STATUS & CONTROL REGISTER 1 
MPSCR0* 



MPSCRl' 








; REGISTER NAME 


RUN» 


1 


;RUN LINE FROM RH20 


GOs 


2 


J GO BIT 


FN* 


174 


/FUNCTION CODE 


F0* 


4 


/FUNCTION BIT 


Fl« 


10 


/FUNCTION BIT 1 


F2« 


20 


/ FUNCTION BIT 2 


F3* 


40 


/FUNCTION BIT 3 


F4» 


100 


/FUNCTION BIT 4 


WCLKs 


200 


I WRITE CLOCK LINE FROM RH20 


AND CONTROL REGISTER 2 




1 




/REGISTER NAME 


DONEs 


1 


;DATA TRANSFER DONE (READ) 


EBfcs 


1 


/SET EBL (WRITE) 


EXC* 


2 


/EXCEPTION LINE FROM R«20 (READ) 


CLRGQs 


2 


;SET TO CLEAR GO (WRITE) 


CMPERRs 


4 


/COMPOSITE ERROR FLAG (READ) 


START* 


4 


/START A DATA TRANSFER (WRITE) 


DTDs 


10 


/ DATA TO DEVICE 


0CC» 


20 


/OCCUPIED 


ILFs 


40 


/ILLEGAL FUNCTION 


MPERR* 


100 


/MICRO-PROCESSOR DETECTED ERROR FLAG 


ATA* 


200 


/ATTENTION 



/ERROR CODE REGISTER 
MPECRs 2 

/DRIVE TYPE REGISTER 
MPDTRs 3 

/HARDWARE VERSION REGISTER 
MPHVRs 4 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



DXMCA - 
DXMCA 

116 

117 
118 
119 
120 

121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 MACRO 
MAC 23-Sep-81 15:20 MASSBUS REGISTER BIT DEFINITIONS 



000005 



000006 



000007 



000003 
000004 
000010 
000020 



000010 
000177 
000200 
000011 

000012 
000013 

000014 
000015 

000016 
000017 
000001 
000002 
000004 

000020 
000021 

000023 
000022 

000025 
000024 
000027 
000026 



;DATA BUFFER REGISTER 
MPDBOa 5 

?DATA BUFFER REGISTER t 
MPDSls 6 

;DATA BUFFER REGISTER 2 
MPDB2* 7 





OBs 


3 




DBPARa 


4 




DBPAREss 


10 




D8EVEN« 


20 


; GENERAL PURPOSE 


RE' 


STINDX* 


10 






INDEX* 


177 




STATRQx 


200 


STBYTE* 


11 




DR« 


12 




MODE* 


13 




PUMPSZ* 


14 




SPARES 


15 




MiBYT* 


16 




Fl»AGS= 


17 






SNDTIE» 


1 




FSENSE* 


2 




SUPRES* 


4 


ASYCDRs 


20 




ASYCST* 


21 




CMTH« 


23 




cm* 


22 




XSTATO* 


25 




XSTAT1* 


24 




XSTAT2* 


27 




XSTAT3* 


26 





REGISTERS 



%53B(1155) 15J46 15-Feb-82 Page 4 



REGISTER NAME 



; REGISTER MAME 



f REGISTER NAME 



fDATA BUFFER BITS 16 AND 17 

;PARITY BIT 

? PARITY ERROR (READ) 

fDATA BUFFER EVEN PARITY CONTROL 



; STATUS INDEX 

? INDEX CODE 

| STATUS REQUEST FLAG 

f ENDING STATUS BYTE 

f DRIVE NUMBER FROM HOST 
/DRIVE MODE (DENSITY & FORMAT) 

JSIZE OF EXTENDED STATUS TABLE 
;NOT USED 

;TRACK-IM-ERROR BYTE FROM HOST 
;FLAG REGISTER 

fSEND TIE BYTE BEFORE READ COMMAND 
?FORCE SENSE BYTE READ AT TERMINATION 
; SUPPRESS SENSE ON ERROR 

1 DRIVE PRESENTING ASYNC STATUS 
fASYNC STATUS FROM DRIVE 

;BYTE / BLOCK COUNTER 



/EXTENDED STATUS BYTE 

I EXTENDED STATUS BYTE 1 

I EXTENDED STATUS BYTE 2 

t EXTENDED STATUS BYTE 3 



\ 
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DXMCA MAC 23-SeP-8l iS:20 MASSBUS REGISTER BIT DEFINITIONS 

165 

166 ;MP STATUS REGISTER 
167 

168 000036 MPSTAT*36 /REGISTER NAME 

169 000001 INTO* 1 ; INTERRUPT LIME 

170 000002 INT1* 2 / INTERRUPT LINE 1 

171 000004 INT2* 4 $ INTERRUPT LINE 2 

172 000010 INT3s 10 ; INTERRUPT LINE 3 

173 000020 C* 20 /CARRY BIT 

174 000040 Z= 40 /ZERO BIT 
175 

176 ?I/Q BANK SELECT REGISTER 
177 

178 000037 I0SEL«37 | REGISTER NAME 

179 000007 INADRa 7 ; INPUT BANK ADDRESS 

180 000070 OUTADRa 70 /OUTPUT BANK ADDRESS 

181 000100 SPRES* 100 /STACK POINTER RESET 

182 000200 INlTs 200 /INITIALIZE 
183 

184 /INTERFACE SELECTION CODES 
185 

186 000001 MBINs 01 /MASSBUS INTERFACE READ ONLY 

187 000010 MBOUT* 10 / WRITE ONLY 

188 000011 MB* 11 ; READ AND WRITE 

189 000002 DPINs 02 /DATA PATH READ ONLY 

190 000020 DPOUT= 20 ; WRITE ONLY 

191 000022 DPs 22 I READ AND WRITE 

192 000003 CHNINo 03 /CHANNEL INTERFACE READ ONLY 

193 000030 CHNOUT» 30 / WRITE ONLY 

194 000033 CHN* 33 / READ AND WRITE 
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195 




SUBTTL 


CHANNEL BUS 


196 








197 




/CONTROL AND STATUS 


198 








199 


000000 


CSRO = 





200 


000001 




CLRSLVs 1 


201 


000002 




CLRERSs 2 


202 


000001 




SLVSEL* 1 


203 


000002 




BUSOPEs 2 


204 


000004 




BUS1PE* 4 


205 


ooooio 




MKPE* 10 


206 


000020 




UPBE* 20 


207 


000040 




DPPE» 40 


208 


000100 




TlMOUTs 100 


209 


000200 




EXFERs 200 


210 








211 




/CONTROL AND STATUS 


212 








213 


000001 


CSRla 


1 


214 


000001 




CHANL* 1 


215 


000002 




ONLINE* 2 


216 


000004 




LOOPEN* 4 


217 


000010 




MOD360« 10 


218 


000020 




EXTBUSa 20 


219 


000040 




EVPARs 40 


220 


000100 




DlHISPa 100 


221 


000200 




SP£N» 200 


.222 








223 




/TAG OUT REGISTER 


224 








225 


000002 


TOROa 


2 


226 


000001 




CMDOUT* 1 


227 


000002 




SELOUTs 2 


228 


000004 




TMREN* 4 


229 


000010 




HLDQUTss 10 


230 


000020 




ADROUT* 20 


231 


000040 




MTROUTa 40 


232 


000100 




CLKOUTb 100 


233 


000200 




SRVOUTa 200 


234 








235 




/TAG OUT REGISTER 1 


236 








237 


000003 


TORla 


3 


238 


000001 




TOSOUTa 1 


239 


000002 




TODOUT* 2 


240 


000004 




DlMUX* 4 


241 


ooooio 




DlSACKs 10 


242 


000020 




DATOUT« 20 


243 


000040 




SUPOUTs 40 


244 


000100 




DGOUT* 100 


245 


000200 




OPLOUT* 200 



/REGISTER NAME 

/WRITE TO CLEAR SLAVE SELECTED 
/WRITE TO CLEAR ERRORS 
/SLAVE SELECTED 
/BUS PARITY ERROR 
/BUS 1 PARITY ERROR 
/MARK BUS PARITY ERROR 
/MICRO-BUS PARITY ERROR 
/DATA PATH PARITY ERROR 
/TIME OUT ERROR 
/END TRANSFER 



/REGISTER NAME 
/CHANNEL MODE 
/CHANNEL BUS ENABLE 
/DIAGNOSTIC LOOP ENABLE 
/360 TYPE BUS MODE 
/EXTENDED BUS ENABLE 
/EVEN PARITY CONTROL 
/DIAGNOSTIC HIGH SPEED 
/SCRATCH PAD ENABLE 



/REGISTER NAME 
/COMMAND OUT 
/SELECT OUT 

/TIMER ENABLE AND TRIGGER 

/HOLD OUT 

/ADDRESS OUT 

/METER OUT 

/CLOCK OUT 

/SERVICE OUT 



/REGISTER NAME 



/DATA OUT 
/SUPPRESS OUT 

/OPERATIONAL OUT 
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DXMCA MAC 23-Sep-Sl 15s20 CHANNEL BUS INTERFACE REGISTER DEFINITIONS 



246 




;TAG IN REGISTER 







247 










248 


000004 


TAGINO* 4 




/ REGISTER NAME 


249 


000001 


STAINa 


1 


;STATUS IN 


250 


000002 


SELINs 


2 


;SELECT IN 


251 


000004 


MTRINa 


4 


? METER IN 


252 


000010 


TOHOUT* 


10 




253 


000020 


ADRIN= 


20 


; ADDRESS IN 


254 


000040 


MK1IN* 


40 


/MARK I IN 


255 


000100 


MK0IN3 


100 


/MARK IN 


256 


000200 


OPLIN* 


200 


OPERATIONAL IN 


257 










258 




/TAG IN REGISTER 


1 




259 










260 


000005 


TAGINls 5 




/REGISTER NAME 


261 


000001 


SPAOs 


1 




262 


000002 


SPA Is 


2 




263 


000004 


SPA2= 


4 




264 


000010 


SPA3» 


10 




265 


000020 


DATlNs 


20 


| DATA IN 


266 


000040 


REQINs 


40 


/REQUEST IN 


267 


oootoo 


DISINs 


100 


/DISCONNECT IN 


268 


000200 


SRVIN* 


200 


/SERVICE IN 



DXMCA 
DXMCA 

269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 



• DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 



MAC 



23-Sep-81 15120 



000006 



000007 



000010 



000011 



000012 



000013 



000014 



000015 



000016 



CHANNEL BUS INTERFACE REGISTER DEFINITIONS 
/DATA REGISTER 
DRltQ" 6 
/BUS IN REGISTER 
C8IL0« 7 

/SCRATCH PAD DATA REGISTER 
SPDALQ* 10 
/BUS OUT REGISTER 
B0R1.0* It 
/DATA REGISTER 1 
DRHIs 12 
/BUS IN REGISTER 1 
CBIHI* 13 

/SCRATCH PAD DATA REGISTER 1 
SPDAHI* 14 
/BUS OUT REGISTER 1 
BORHI* 15 

/CONTROL UNIT STATUS REGISTER 
CUSTAT* 16 
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/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 



/REGISTER NAME 
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304 




J V *J 




306 




307 




308 


000000 


309 


000001 


310 


000002 


311 


000004 


312 


000010 


313 




314 


000001 


IIS 


000001 


316 


000002 

V V v *f V 4w 


317 


000004 


318 


00001 


319 


000020 


320 

«Jr m V 


000040 

V \f V W Tp V 


321 


000100 


322 


000200 

%jr >r jjjp %^ 


323 




324 


000002 


325 


000001 


326 


000002 


327 


000004 


328 


000010 


329 




330 

*j V 


000003 


331 


000002 


332 


000004 


333 


000010 


334 

«d «t# "TS 




335 




336 




337 


000004 


338 


000005 

V w 


339 


000006 


340 


000007 


341 




342 




343 




344 


000010 


345 




346 




347 




348 


000013 



SU8TTL DATA PATH REGISTER DEFINITIONS 
; STATUS REGISTERS 



R.EGOa 



REGl» 



REG2* 



REG3»- 



U8PEFG* 
DPPEFGa 
8C0VF* 
MCOVF* 



DXHISP* 

BCLKENa 

DSLVRO* 

DMSTRQjb 

St.VACK« 

MSTACKa 

SLVRQa 

MSTRO" 



RMAORSs 
5EBC0V* 

MEMCOV* 
ME0NFE« 

3 

NSEXFRs 
NFEXFRa 
N«EXFR» 



1 

2 
4 
10 



1 
2 
4 
10 
20 
40 
100 
200 



1 
2 
4 

10 



2 
4 
10 



/DATA PATH COUNTERS 



MCLOa 

MCHO« 

ecws 

BCHOs 



4 
S 
6 
7 



j FORMATTER ROM START ADDRESS REGISTER 
DFRMAD* 10 

;HIGH SPEED INITIALIZE SIGNAL 
HSDPIN* 13 



/ REGISTER NAME 
;MICROBUS PARITY ERROR FLAG 
;DATA PATH PARITY ERROR FLAG 
J BYTE COUNT OVERFLOW FLAG 
IMASSBUS COUNTER OVERFLOW FLAG 

/REGISTER NAME 
;DX HIGH SPEED 
/BASE CLOCK ENABLE 
/DIAGNOSTIC SLAVE REQUEST 
/ DIAGNOSTIC MASTER REQUEST 
/SLAVE ACK 
/MASTER ACK 
/SLAVE REQUEST 
/MASTER REQUEST 

/REGISTER NAME 
/ ROM ADR BIT 8 

/SLAVE END ON BC OVERFLOW ENABLE 
/MASTER END ON MC OVERFLOW ENABLE 
/MASTER END ON FORMATTER END ENABLE 

/REGISTER NAME 
/NOT SLAVE END TRANSFER 
/NOT FORMATTER END TRANSFER 
/ NOT MASTER END TRANSFER 



/MASSBUS COUNTER (LOW BYTE) 
/ " * (HIGH BYTE) 

/BYTE COUNTER CM3W BYTE) 
/ » " (HIGH BYTE) 



/REGISTER NAME 



/WRITE OF THIS REGISTER TO INIT (DATA IGNORED) 
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DXMCA MAC 23-Sep-81 15i20 MISCELLANEOUS DEFINITIONS 

349 SUBTTL MISCELLANEOUS DEFINITIONS 

350 

351 ;A MACRO TO ESTABLISH A TABLE IN CRAM IN CONSECUTIVE LOCATIONS 

352 ;IN A SINGLE PAGE. DEFINES A NAME FOR THE TABLE AND SPECIFIES THE SIZE. 
353 

354 DEFINE TABLE (NAME, SIZE) ,< 

355 IFN «..-8>««,+SIZE-l>«-8»,<.LOC < # |377>«-1> 

356 NAME! f DEFINE TABLE 

357 > 
358 

359 ?A MACRO TO DEPOSIT ZEROS INTO MEMORY TO FILL THE CURRENT PAGE 

360 f THE ZERO FILL WORDS ARE NOT LISTED 
361 

362 DEFINE ,MNEXT,< 

363 XLIST 

364 BLOCK <4O0-<.&377» 

365 LIST 

366 > 
367 
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DXMCA MAC 23-Sep-81 15*20 ERROR CODE DEFINITIONS 

368 5UBTTL ERROR CODE DEFINITIONS 
369 

370 ; THE FOLLOWING COOES WILL BE PLACED IN THE ERROR CODE REGISTER 

371 ;AND THE MP ERROR FLAG AND ATTENTION WILL BE SET WHEN 

372 ; THE CORRESPONDING ERRORS ARE DETECTED, 
373 

374 ; THE CODE IS BROKEN INTO TWO EIGHT BIT FIELDS t 

375 ; THE LOW ORDER FOUR BITS DETERMINE A CLASS 

376 ; THE HIGH ORDER FOUR BITS DEFINE THE PARTICULAR ERROR IN THE CLASS 
377 

378 fCLASS 1 - UNUSUAL DEVICE STATUS 
379 

380 ; STATUS BYTE IS PRESENTED IN REGISTER 20 

381 ^REGISTERS ARE LOGGED AND SENSE BYTES ARE READ (UNLESS BUSY IS SET 

382 ; IN STATUS BYTE) 

383 ;IF READ FUNCTION, NUMBER OF BYTES READ IN ERROR RECORD ARE REPORTED 
384 

385 000001 UDS.FNa liO.4 ;STATUS IS FROM FINAL STATUS SEQUENCE 

386 000021 UDS.IN* 111,4 fSTATUS IS FROM INITIAL STATUS SEQUENCE 
387 

388 fCLASS 2 * SHORT RECORD 
389 

390 jSTATUS BYTE IS PRESENTED IN REGISTER 20 

391 } REGISTERS ARE LOGGED AND SENSE BYTES ARE READ 

392 ? ACTUAL LENGTH OF RECORD IS PRESENTED IN REGISTER 5 
393 

394 000002 SHREC.* 2 
395 

396 ; CLASS 3 - LONG RECORD 

397 

398 ;STATUS BYTE IS PRESENTED IN REGISTER 20 

399 ; REGISTERS ARE LOGGED AMD SENSE BYTES ARE READ 

400 ; ACTUAL LENGTH OF RECORD, MODULO 2OO0Q0C8), IS PRESENTED IN REGISTER 5 
401 

402 000003 LGREC* 3 
403 

404 ; CLASS 4 « DEVICE SELECTION ERROR 
405 

406 ; REGISTERS ARE LOGGED 

407 ;STATUS AND SENSE BYTES ARE RETURNED 21R0 
408 

409 000004 DSE.» 4 
410 

411 ;CLASS .5 - RECOVERABLE ERROR (TAPE MOTION) 
412 

413 ^REGISTERS ARE LOGGED, SENSE BYTES ARE READ 

414 jACTUAL LENGTH OF RECORD IS PRESENTED IN REGISTER 5, IF READ 
415 

416 000005 REM. DP* 510.4 J DATA PATH PARITY ERROR 

417 000025 REM. SP* 5*1.4 $ ENDING STATUS BYTE PARITY ERROR 
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418 




419 




420 




421 




422 




423 




424 


000006 


425 


000026 


426 


000046 


427 


000066 


428 




429 




430 




431 




432 




433 




434 




435 


000007 


436 


000027 


437 


000047 


438 


000067 


439 


000107 


440 




441 




442 




443 




444 




445 




446 


000010 


447 


000030 


448 


000050 


449 


000070 


450 


000110 


451 




452 




453 




454 




455 




456 




457 




458 




459 




460 




461 


000011 



;CLASS 6 - RECOVERABLE ERROR (NO TAPE MOTION) 
i REGISTERS ARE LOGGED 

j SELECTIVE RESET IS PERFORMED ON DRIVE (EXCEPT RE.NRN) 
;A ZERO STATUS BYTE IS PRESENTED 



RE.AM* 610-4 
RE.AP» 611-4 
RE.SP* 6 J 2.4 
RE.NRN* 613-4 

fCLASS 7 - NON-RECOVERABLE ERROR 
; REGISTERS ARE LOGGED 

jSELECTIVE RESET IS PERFORMED ON DRIVE 
;A ZERO STATUS BYTE IS PRESENTED 



; ADDRESS MISMATCH 

t ADDRESS PARITY ERROR 

; INITIAL STATUS BYTE PARITY ERROR 

;RUN WAS NOT RECEIVED FROM RH20 



NRE.DP* 
NRE.CP" 
NRE.TOa 
NRE.DCS 
NRE.RT* 



710- 4 

711- 4 

712- 4 

713- 4 

714- 4 



fDATA PATH DETECTED MICRO-BUS PARITY ERROR 
; CHANNEL BUS DETECTED MICRO-BUS PARITY ERROR 
^CHANNEL BUS HANDSHAKE TIME-OUT 
;DEVICE ASSERTED DISCONNECT IN 
;TIME*OUT OF READ COMMAND 



? CLASS 8 - FATAL 



?DX20 IS HALTED BY A STACK POINTER UNDERFLOW ERROR 
; AFTER SETTING ERROR CODE AND ERROR FLAG 



FtWDTs 810-4 
F.APCUa 811-4 
F.SPCU* 8J2-4 
F.FAIL* 813-4 
F# INTO* 814-4 

;CLASS 9 - DIAGNOSTIC ERROR 



J WRONG DRIVE TYPE FOR VERSION OF MICRO-CODE 

; ADDRESS PARITY ERROR DURING CU INITIATED SEOUENCE 

;STATUS BYTE PARITY ERROR DURING CU INITIATED S£§. 

;MASSBUS CONTROLLER POWER FAILED 

fPROCESSQR INTERRUPTED FROM INTERFACE 0????? 



$ MICROPROCESSOR WILL LOOP ON ERROR IF STARTED AT 'BEGIN2* OR *BE6IN3% ELSE 
; WILL HALT BY A STACK POINTER UNDERFLOW ERROR 

,* IN THE FORMER CASE, THE ERROR CODE AND ERROR FLAG WILL BE SET AND EXTENDED 
; STATUS REGISTER WILL CONTAIN THE ERROR NUMBER. IN THE LATTER CASE, THE 
j SAME WILL BE DONE WITH ATTENTION ALSO BEING ASSERTED. 



D, FAILS 9 
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462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 
481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
501 
502 
503 
504 
505 
506 
507 
508 
509 
510 
511 
512 
513 
514 
515 
516 



SUBTTL START-UP 
* I N X T 4 
SALL 



/INITIALIZE THE ASSEMBLER 



000000 





016004 


07 0004 










000001 





100012 


4 0012 


BEGIN: 


JMP 


STARTA 


/INITIALIZE START, NORMAL ENTRY 


000002 





100014 


4 0014 


BEGIN H 


vJMp 


STARTS 


/NO IDLE LOOP DIAG START 


000003 





100016 


4 0016 


BEGIN2: 


JMP 


STARTC 


/RUN IDLE LOOP DIAGS, LOOP ON ERROR START 


000004 





100020 


4 0020 


BEGIN3 : 


JMP 


STARTD 


/RUN DIAGS ONLY START, LOOP ON ERROR 


000005 





100012 


4 0012 


BEGIN4: 


JMP 


STARTA 




000006 





100024 


4 0024 


BEGINS: 


JMP 


STARTF 


; RESTART ADDRESS 



;THE FOLLOWING ARE FIXED LOCATIONS USED TO IDENTIFY 
/THIS CODE IN THE DX20 CONTROL STORE RAM 



000007 050060 050060 

000010 000100 000100 

000011 000000 000000 



DATA TYPE 
DATA KEYWRD 
DATA 



/THE DRIVE TYPE OF THE DX20 CONTROLLER 
/A KEY WORD IDENTIFYING THE MICRO-CODE 
/THIS WORD WILL ALWAYS LOAD WITH ZERO, 
/THE MONITOR BOOTSTRAP WILL WRITE THIS 
/LOCATION TO NON-ZERO AT LOAD TIME, 



/THE WORKING MEMORY LOCATION 'DFLAGS* IS USED TO HOLD DIAGNOSTIC FLAG BITS, 

/THE FACT THAT ALL BITS ARE ZEROED WHEN THE MICROCODE IS STARTED AT 'STARTA* 
/IS USED TO DETERMINE WHETHER OR NOT TESTS 21 AND 22 GET RUN AT STARTUP, 

/THE BITS ARE: BIT -« SET IF DIAGS ARE NOT TO BE RUN IN IDLE LOOP 

/ BIT 1 * SET IF LOOPING ON DIAG ERROR 

/ BIT 4 * SET IF RUNNING DIAGS ONLY 

/ BIT 7 ■ SET IF LOOP ON ERROR DESIRED 



000012 





002000 





1 


000 


STARTA: LDBR 





/SET TO RUN DIAGS IN IDLE LOOP, HALT ON ERROR 


000013 





100021 


4 





0021 


JMP 






000014 





002001 





I 


001 


STARTS: LDBR 


i 


/SET TO NOT RUN DIAGS IN IDLE LOOP 


000015 





100021 


4 





0021 


JMP 


STARTX 
















/EDIT C23 CORRECTS WRONG SETTING OF 


FLAG WORD, 














? C23 STARTC: 


LDBR 201 


/SET TO RUN DIAGS AND LOOP ON ERROR 


OOOOli 





002200 





1 


200 


STARTCl LDBR 


200 


/ C23 SET TO RUN DIAGS AND LOOP ON ERROR 


000017 





100021 


4 





0021 


JMP 


STARTX 




000020 





002220 





I 


220 


STARTD: LDBR 


220 


/SET TO RUN DIAGS ONLY AND LOOP ON ERROR 


000021 





000400 








1 000 


STARTX: LDMARX 





/CLEAR MAR EXT BITS 


000022 





001001 








2 001 


LDMAR 


OFLAGS 


/SET MAR TO DLAGS ADDR 


000023 





070011 


3 


4 


00 11 


MOVB 


MEM 




000024 





002161 





1 


161 


STARTF: JUMP 


CLENUP 


/RUN DIAGS AND CLEAN UP ALL STATUS, 


000025 





160231 


7 





11 11 
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517 
518 



519 


000026 





000400 








1 000 


520 


000027 





001003 








2 003 


521 


000030 





010100 





4 


100 


522 


000031 





002100 





1 


100 


523 


000032 





066371 


3 


3 


17 


524 


000033 





002011 





1 


on 


525 


000034 





066371 


3 


3 


17 


526 














527 


000035 





116056 


4 


7 


0056 


528 


000036 





116112 


4 


7 


0112 


529 


000037 





022000 


1 


1 


00 


530 


000040 





014000 





6 


000 


531 


000041 





104147 


4 


2 


0147 


532 


000042 





103767 


4 


1 


1767 


533 


000043 





000400 








1 000 


534 


000044 





001001 








2 001 


535 


000045 





042011 


2 


1 


00 


536 


000046 





104035 


4 


2 


0035 


537 


000047 





001003 








2 003 


538 


000050 





052011 


2 


5 


00 


539 


000051 





070007 


3 


4 


00 


540 


000052 





114054 


4 


6 


0054 


541 


000053 





100035 


4 





0035 


542 


000054 





002244 





1 


244 


543 


000055 





161631 


7 





3 11 



SU8TTL IDLE LOOP 





IDLE: 


LDMARX 









LDMAR 


IDLCNT 






LOMEM 


ioo 




IDLED 8 


LD8R 


SPRES 


11 




MOVB 


IOSEL 




XDLEDll 


LOBR 


MB 


11 




MQVB 


IOSEL 




IDLELP J 


JMPSUB 


EXTREO 






JMPSU8 


CKASYC 


00 




DAT! 


MPSCRO # BR 






SHR 








JMPBG 


DOCMD 








INTERUPT 






LDMARX 









LDMAR 


DFLAGS 


11 




MOVMEM 


BR 






JMPBO 


IDLELP 






LDMAR 


IDLCNT 


11 




MOVMEM 


ACO 


07 




DEC 


AC0,MEM 






JMPZ 


.+2 






JMP 


IDLELP 






JUMP 


RNDIAG 



11 
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; CLEAR MAR EXT BITS 
;SET MAR TO IDLE WAIT CNR ADDR 
;SET WAIT TIME BEFORE RUNNING DIAGS 
; RESET THE STACK POINTER 

/SELECT MASSBUS INTERFACE 



?CHECK IF AN EXTENDED STATUS REQUEST 

? CHECK FOR ASYNC STATUS TO PRESENT 

f READ FUNCTION CODE REGISTER 

f SHIFT GO BIT TQ BRO 

;D0 COMMAND IF GO IS SET 

JCHECK ON INTERRUPTS 

;CLEAR MAR EXT BITS 

;SET ADDR OF DIAG FLAGS LOC 

;PUT FLAGS INTO BR 

?DON*T RUN DIAGS IF BIT SET 

;SET ADDR OF WAIT CNT 

fGET WAIT CNT 

; DECREMENT WAIT CNT 

J4UMP TO RUN DIAGS IF TIMED OUT 

f STAY IN IDLE LOOP 

;G0 RUN DIAGS 



DXMCA 
DXMCA 
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MAC 



23-Sep-81 15:20 



EXTENDED STATUS REQUEST SERVICE 



545 
















SUBTTL 


EXTENDED STATUS RE 


546 






















547 
















> CHECK 


IF EXTENDED STATUS 


548 






















549 


000056 





022010 


1 


1 





00 10 


EXTREQ5 


DATI 


STINDX t BR 


550 


000057 





110061 


4 


4 


0061 




JMPB7 


.♦2 


551 


000060 





016000 





7 





000 




RETURN 




552 






















553 
















; CHECK 


RANGE OF 


INDEX 


554 






















555 


000061 





001003 








2 


003 




LDMAR 


iDliCNf 


556 


000062 


o 


010100 

*r «fr W * *f w 





4 





100 




LDMEM 


100 


557 


000063 





002223 





1 





223 




tiDBR 


MAXIDX*200 


558 


000064 


o 


072011 


3 


5 





00 11 




MOVB 


ACO 


559 


000065 

X/F V V %f V* 





022010 


1 


1 





00 10 




DATI 


STINDX, §R 


560 


000066 





062016 


3 


1 





00 16 




TSB 


ACO , BR 


561 


000067 





110107 


4 


4 


0107 




JMPB7 


BADIDX 


562 


000070 


o 


032010 

4Hr >f <^ Tt-F 


1 


5 





00 10 




DATI 


STINDX* ACO 


563 


000071 





072005 


3 


5 





00 05 




5HLR 


ACO 


564 


000072 





072005 


3 


5 





00 05 




SHLR 


ACO 


565 


000073 


o 


000400 








1 


000 




LDMARX 





566 


000074 





002052 





1 





052 




LDBR 


5BYT00 


567 


000075 





061000 


3 





2 


00 00 




ADB 


ACQ , MAR 


568 


000076 





047531 


2 


3 


3 


05 U 




MOVMEM 


XSTATO,! 


569 


000077 





047511 


2 


3 


3 


04 11 




MOVMEM 


XSTAT1 ,1 


570 


000100 





047571 


2 


3 


3 


07 11 




MOVMEM 


XSTAT2,I 


571 


000101 





046151 


2 


3 





06 11 




MOVMEM 


XSTAT3 


572 


000102 





032010 


1 


5 





00 10 




DATI 


STINDX , ACO 


573 


000103 





002177 





1 





177 




LDBR 


INDEX 


574 


000104 





062013 


3 


1 





00 13 




LANDS 


ACO ,BR 


575 


000105 





064211 


3 


2 





10 11 




MOVB 


STINDX 


576 


000106 





016000 





7 





000 




RETURN 




577 






















578 
















/A BAD 


INDEX CODE HAS BEEN 


579 
















/MAKE THE CODE 


A ZERO THEN 


580 






















581 


000107 





002200 





1 





200 


BADIDX: 


LDBR 


200 


582 


000110 





064211 


3 


2 





10 11 




MOVB 


STINDX 


583 


OOOill 





100056 


4 





0056 




JMP 


EXTREQ 


584 























/ READ INDEX REGISTER 
/SKIP IP REQUEST IS SET 
;N0 



| RESET WAIT CNT FOR RUNNING DIAGS 

/GET MAXIMUM VALID CODE 
;MOVE MAX TO ACO 
? GET CODE AGAIN 
/SUBTRACT CODE FROM MAX 

/IF NEGATIVE RESULT, BAD INDEX VALUE RECEIVED 
J READ INDEX CODE 
/MULTIPLY BY 4 

/SELECT MEMORY PAGE 

;GET START ADDRESS OF TABLE 

; ADD TO OBTAIN ADDRESS REQUESTED 

/LOAD EXTENDED STATUS REGISTERS 



;READ INDEX AGAIN 
/GET MASK OF INDEX BITS 
;GET ONLY INDEX CODE 
/CLEAR THE REQUEST BIT 



/GET REQUEST AND CODE 

/PUT IN INDEX, ZERO IS ALWAYS VALID 

/NOW READ INDEX 
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585 
586 
587 
588 
589 
590 
591 
592 
593 
594 
595 
596 
597 
598 



SUBTTL CHECK FOR ASYNC STATUS TO BE PRESENTED 



611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 



000112 
000113 
000114 
000115 
000116 
000117 
000120 
000121 
000122 






132001 


5 


5 


00 01 


CKASYC: DAT! 


ASYCST.ACO 


tRP&n niRRFNT iSYur status 







060007 


3 





00 07 


DEC 


ACO 


/SUBTRACT 1 TO GEN -1 IF WAS 


ZERO 


V 


4 4 A 4 4 £. 

114116 


4 


6 


0116 


JMPZ 


CKREOI 


/IF ZERO, CHECK IF REQ IN IS 


SET 





016000 





7 


000 


RETURN 




/CAN'T PRESENT STATUS UNLESS 


ZERO 





022001 


1 


1 


00 01 


CKREQIt DATI 


MPSCRi ,BR 


J READ STATUS REGISTER 







110146 


4 


4 


0146 


JMPB7 


NRTN 


/CAN'T PRESENT STATUS UNLESS 


ATTENTION IS OFF 





014000 





6 


000 


SHR 




/SHIFT COMPOSITE ERROR BIT 







014000 





6 


000 


SHR 




/TO BIT 







104146 


4 


2 


0146 


JMpBO 


NRTN 


/CAN'T PRESENT STATUS UNLESS 


ERROR IS CLEAR 












/CHECK IF REQ 


IN IS SET ON CHANNEL BUS 







599 


000123 





002033 





1 


033 


LDBR 


CHN 


/SELECT CHANNEL BUS INTERFACE 


600 


000124 





066371 


3 


3 


17 11 


MOVB 


I OS EL 




601 


000125 





022005 


1 


1 


00 05 


DATI 


TAGINI ,BR 


/ READ TAG IN LINES 


602 


000126 





014000 





6 


000 


SHR 




/SHIFT REQ IN TO BR4 


603 


000127 





106131 


4 


3 


0131 


JMPB4 


.♦2 


/SKIP IF SET 


604 


000130 





100134 


4 





0134 


JMP 


NOREQI 


/ NO 


605 


000131 





000400 








1 000 


LDMARX 





/SELECT MEMORY PAGE 


606 


000132 





117420 


4 


7 


1420 


JMPSUB 


DEVREQ 


/SERVICE THE DEVICE REQUEST 


607 


000133 





114137 


4 


6 


0137 


JMPZ 


REQATA 


/JUMP IF STATUS WAS STORED 


608 


000134 





002011 





1 


o on 


NOREOII LDBR 


MB 


/SELECT MASSBUS INTERFACE 


609 


000135 





066371 


3 


3 


17 11 


MOVB 


I0SEL 




610 


000136 





016000 





7 


000 


RETURN 







/ASYNC STATUS WAS STORED, SET ATTENTION TO INTERRUPT THE HOST 



000137 002011 1 

000140 066371 3 3 

000141 022000 1 1 00 00 

000142 014000 6 000 

000143 104146 4 2 

000144 002200 1 

000145 064031 3 2 

000146 016000 7 



Oil 
17 11 



0146 
200 
01 11 
000 



REQATA t LDBR 
MOVB 
DATI 
SHR 
JMPBO 
LDBR 
MOVB 

NRTN! RETURM 



MB 

IOSEL 
MPSCR0,BR 

NRTN 
ATA 

MPSCR1 



/SELECT MASSBUS INTERFACE 

/ 191 READ FUNCTION CODE REGISTER 

/ £93 SHIFT GO BIT TO BRO 

/C93 DON'T SET ATA IF GO IS SET 

/SET ATTENTION 



DXMCA 
DXMCA 
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MAC 



23-sep-8i is»20 



PERFORM FUNCTION REQUESTED BY HOST 



623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 
651 
652 
653 
654 
655 



SUBTTL PERFORM FUNCTION REQUESTED BY HOST 

?A COMMAND HAS BEEN REQUESTED BY HOST 
; DETERMINE TYPE OF COMMAND REQUESTED 



000147 





002000 





1 


000 


DOCMD : 


LDBR 





J GET A ZERO 


000150 





064031 


3 


2 


01 11 




M0V8 


MPSCR1 


f CLEAR ATA, IF SET 


000151 





064051 


3 


2 


02 11 




MOVB 


MPECR 


f CLEAR ERROR CODE FIELD 


000152 





000401 








1 001 




LDMARX 


FUNC.*8 


; SELECT MEMORY PAGE CONTAINING SETUP TABLES 


000153 





032020 


1 


5 


01 00 




DAT 1 


MPSCR0,AC1 


;READ FUNCTION CODE 


000154 





002174 





1 


174 




LDBR 


FN 


/GET MASK OF FUNCTION CODE BITS 


000155 





072033 


3 


5 


01 13 




LANDBR 


AC 1 


;CLEAR WCLK, GO AND RUN 


000156 





002000 





1 


000 




LDBR 


FUNC&377 


J GET ADDRESS OF FUNCTION TABLE 


000157 





061020 


3 





2 01 00 




ADB 


AC1 , MAR 


; ADD INDEX OF FUNCTION CODE 


000160 





053471 


2 


5 


3 03 11 




MOVMEM 


AC3 , 1 


;GET THE CODE 


000161 





053571 


2 


5 


3 07 11 




MOVMEM 


AC7, 1 


;GET CONTROL BITS 


000162 





103767 


4 


1 


1767 




JMPI 


INf ERUPT 


;CHECK ON INTERRUPTS 


000163 





140211 


6 





10 11 




JMP 


8MEM,FNCDSP 


;DISPATCH TO PROPER ROUTINE 














jDISPATCH TABLE 


FOR MAJOR FUNCTION 


HANDLER ROUTINES 


000164 














TABLE 


FNCD5P,9 


I DEFINE A TABLE 


000164 





100226 


4 





0226 


iMMCMDt 


JMP 


DOIMM 


t IMMEDIATE COMMAND 


000165 





100006 


4 





0006 


CLRCMD8 


JMP 


BEGINS 


;DRIVE CLEAR 


000166 





100351 


4 





0351 


WRTCMDr 


JMP 


DOWRT 


; WRITE COMMAND 


000167 





100552 


4 





0552 


RDCMDf 


JMP 


DOREAD 


yREAD COMMAND 


000170 





101173 


4 





1173 


SNSCMDS 


JMP 


DOSNS 


7 SENSE COMMAND 


000171 





002000 





1 


000 


DMPCMD: 


JUMP 


DODUMP 


fDUMP COMMAND 


000172 





160231 


7 





11 11 










000173 





100175 


4 





0175 


BADCMDS 


JMP 


ILFUNC 


/ILLEGAL NGM*DATA TRANSFER COMMAND 


000174 





100204 


4 





0204 


BADXFR: 


JMP 


ILXFER 


; ILLEGAL DATA TRANSFER COMMAND 
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656 SU8TTL ILLEGAL FUNCTION HANDLER 

657 





vUU* / D 


U 


117 f 1 £ 




/ 


1 l\£ 


• I I?* 1 1 li • 

ILFUNCt 


JMPSUB 


CLRSNS 


; CLEAR SENSE BYTE AREA 


659 


000176 





117734 


4 


7 


1734 




JMPSUB 


LOGREG 


f LOG THE REGISTERS 


660 


000177 





002000 





I 


000 




LDBR 





; CLEAR THE FLAGS 


661 


000200 





064371 


3 


2 


17 11 




MOVB 


FLAGS 




662 


000201 





002242 





1 


242 




LDBR 


ATA+ILF+CLRGO 


; CLEAR GO AND 


663 


000202 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 


t SET ILF AND ATA 


664 
665 


000203 





100026 


4 





0026 




JMP 


IDLE 


|GO IDLE 


666 


000204 





117712 


4 


7 


1712 


ILXFERI 


JMPSUB 


CLRSNS 


1 CLEAR THE SENSE BYTE AREA 


667 


000205 





117734 


4 


7 


1734 




JMPSUB 


LOGREG 


7 LOG THE REGISTERS*G 


668 


000206 





002000 





1 


000 




LDBR 





; CLEAR THE FLAGS 


669 


000207 





064371 


3 


2 


17 It 




MOVB 


FLAGS 


670 


000210 





002020 





1 


020 




LDBR 


OCC 


J SET OCCUPIED 


671 


000211 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 


672 


000212 





002060 





I 


060 


ILDFNC J 


LDBR 


ILF+OCC 


;SET ILF TO CAUSE EXCEPTION 


673 


000213 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




674 


000214 





117734 


4 


7 


1734 




JMPSUB 


LOGREG 


J LOG ALL THE REGISTERS 


675 


000215 





002040 





1 


040 




LDBR 


ILF 


; CLEAR OCCUPIED 


676 


000216 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




677 


000217 





002041 





1 


041 




LDBR 


ILF+EBL 


1 SEND AN EBL 


678 


000220 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 


679 


000221 





022000 


1 


1 


00 00 




DATI 


MPSCRO r BR 


; WAIT FOR RUN TO DROP 


680 


000222 





104221 


4 


2 


0221 




JMPBO 


• »1 


681 


000223 





002242 





1 


242 




LDBR 


ILF+ATA+CLRGO 


fSET ATA AND CLEAR GO 


682 


000224 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




683 


000225 





100026 


4 





0026 




JMP 


IDLE 


/GO IDLE 



684 
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685 














686 














687 














688 














689 














690 














691 














692 














693 














694 














695 














696 














697 














698 














699 














700 


000226 





117712 


4 


7 


1712 


701 


000227 

\? V Aff. jga$ § 





032132 


1 


5 


05 12 


702 


000230 





062170 


3 


1 


07 10 


703 


000231 





110252 


4 


4 


0252 


704 


000232 





000401 








1 001 


705 


000233 

w v -r mf0 





032033 


1 


5 


01 13 


706 


000234 





002017 





1 


017 


707 


000235 





072033 


3 


5 


01 13 


708 


000236 





002200 





1 


200 


709 


000237 





061020 


3 





2 01 00 


710 


000240 





052151 


2 


5 


06 11 


711 


000241 





114175 


4 


6 


0175 


712 


000242 





000400 








1 000 


713 


000243 





062150 


3 


1 


06 10 


714 


000244 

V v yr Jh> "at #S- 





104246 


4 


2 


0246 


715 


000245 





100252 


4 





0252 


716 














717 














718 














719 


000246 





117270 


4 


7 


1270 


720 


000247 





103622 


4 


1 


1622 


721 


000250 





115614 


4 


6 


1614 


722 


000251 





117253 


4 


7 


1253 


723 















5UBTTL IMMEDIATE COMMAND EXECUTION 

/CONTROL BITS IN AC7 FOR IMMEDIATE COMMANDS FROM SEARCH TABLES 

/ BIT 7 SET TO BYPASS ISSUING MODE SET COMMANDS 

BIT 6 SET TO FORCE END OF COMMAND ON INITIAL STATUS 

BIT 4 SET TO BYPASS BLOCK COUNT CHECKS 

BIT 3 SET FOR ALL COMMANDS EXCEPT DATA SECURITY ERASE 

BIT 2 SET FOR REW AND UNL COMMANDS TO PREVENT FORCED 

SENSE BYTE READ AT NORMAL COMMAND END 

BIT ALWAYS SET 

/ AN IMMEDIATE COMMAND HAS BEEN RECEIVED 
/CHECK IF DRIVE MODE IS LEGAL 

DOIMMJ 



JMPSUB 


CLRSNS 


/CLEAR SENSE BYTE AREA 


DATI 


DR,AC5 


; READ DRIVE NUMBER 


MOV 


AC7,BR 


? GET CONTROL BITS INTO BR 


JMP87 


NOMOD 


/JUMP AROUND IF TO DO NO MODE SET 


LDMARX 


DRVMOD„-8 


;SELECT MEMORY BANK FOR MODE COMMAND 


DATI 


MODE, AC 1 


/READ DRIVE MODE REGISTER 


LDBR 


17 


J GET MASK OF DRIVE MODE BITS 


LANDBR 


AC! 


/CLEAR OTHER BITS 


LDBR 


DRVMOD&377 


/GET ADDRESS OF MODE TABLE 


ADB 


AC1 ,MAR 


/GET ADDRESS INDEXED BY CODE 


MOVMEM 


AC6 


/COPY COMMAND BYTE TO AC6 


JMP2 


ILFUNC 


/IF «1, CODE WAS ILLEGAL 


LDMARX 





/SELECT MEMORY BANK ZERO 


MOV 


AC6,iR 


/COPY COMMAND BYTE TO BR 


JMPB0 


4*2 


/IF CODE NOT ZERO, SEND TO DRIVE 


JMP 


NOMOD 


/CODE IS ZERO, GO AROUND 



; ISSUE A MODE SET COMMAND TO DRIVE 



JMPSUB 

JMPI 

JMPZ 

JMPSUB 



SELECT 
ISTPE 

IS TERR 
CHAIN 



/SELECT DRIVE AND SEND COMMAND 
/CHECK IF A STATUS BYTE PARITY ERROR 
/JUMP IF INITIAL STATUS ERROR 
/ ACCEPT STATUS AND INDICATE CHAINING 
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724 7 SEND AN ERASE GAP COMMAND IF DATA SECURITY ERASE 

725 



726 


000252 





062165 


3 


1 


07 


05 


fJOMODs SHL 


AC7,BR 


JCHECK IF DATA SECURITY ERASE 


727 


000253 





106266 


4 


3 


0266 




JMPB4 


SENCMD 


;N0, GO SEND COMMAND 


728 


000254 





002027 





1 


027 




tiDBR 


27 


I YES, SEND AN ERASE GAP COMMAND 


729 


000255 





072151 


3 


5 


06 


11 


MOVB 


AC6 


;PUT COMMAND IN AC6 


730 


000256 





117270 


4 


7 


1270 




JMPSUB 


SELECT 


J SELECT DEVICE AND SEND THE COMMAND 






A 

V 


lu Sh 11 


A 

4 


4 
I 


1622 




JMPI 


ISTPE 


JCHECK IF A STATUS BYTE PARITY ERROR 


732 


000260 





115614 


4 


6 


1614 




JMPZ 


ISTERR 


f JUMP IF AN INITIAL STATUS ERROR 


•t 1 "3 

73 3 


000261 





117224 


A 

4 


*• 
7 


A *\ *S A 

1224 




JMpSUB 


ACCEPT 


f ACCEPT THE STATUS 


734 


000262 





117211 


4 


7 


1211 




JMPSUB 


WAITST 


f WAIT FOR ENDING STATUS 


735 


000263 





103643 


4 


1 


1643 




JMPI 


ESTPE 


1 CHECK IF A STATUS BYTE PARITY ERROR 


736 


000264 





115625 


4 


6 


1625 




JMPZ 


ESTERR 


; JUMP IF AS ENDING STATUS ERROR 


737 
738 


000265 





117253 


4 


7 


1253 




JMPSUB 


CHAIN 


f ACCEPT THE STATUS AND INDICATE CHAINING 


739 
740 
















;SEN0 COMMAND AS REQUESTED 




741 


000266 





002011 





I 


Oil 




SENCMDS tiDBR 


MB 


I SELECT MASSBUS INTERFACE 


742 


000267 





066371 


3 


3 


17 


11 


MOVB 


IOSEL 


743 


000270 





032117 


1 


5 


04 


17 


DATI 


FLAGS, AC4 


;GET FliAGS INTO AC4 


744 


000271 





062070 


3 


1 


03 


10 


MOV 


AC3,BR 


fGET COMMAND CODE FROM AC3 


745 


000272 





072151 


3 


5 


06 


11 


MOVB 


AC6 


; PLACE IN AC6 


746 


000273 





117270 


4 


7 


1270 




RPTCMD: JMPSUB 


SELECT 


; SELECT DRIVE AND SEND COMMAND 


747 


000274 





103622 


4 


1 


1622 




JMPI 


ISTPE 


; CHECK IF A STATUS BYTE PARITY ERROR 


748 


v v 2 7 5 





115614 


4 


6 


4 £. 4 A 

1614 




JMPZ 


ISTERR 


J JUMP IF INITIAL STATUS ERROR 


749 


000276 





062165 


3 


1 


07 


05 


SHL 


AC7,BR 


;CHECK IF COMMAND IS DONE 


750 


000277 





110323 


4 


4 


0323 




JMPB7 


QUICK 


J ON INITIAL STATUS (BIT 6 OF AC 7) 


"f C 4 

75* 


000300 





117224 


4 


7 


1224 




JMPSUB 


ACCEPT 


> ACCEPT THE STAfUS 


752 


000301 





117211 


4 


7 


1211 




JMPSUB 


WAITST 


;WAIT FOR ENDING STATUS 


753 


000302 





103643 


4 


1 


1643 




JMPI 


ESTPE 


; CHECK IF A STATUS BYTE PARITY ERROR 


754 
755 


000303 





115625 


4 


6 


1625 




JMPZ 


ESTERR 


; JUMP IF AN ENDING STATUS ERROR 


756 
















?IF A REPEATABLE COMMAND, INCREMENT 


THE BLOCK COUNTER 


757 
758 
















;THEN EXIT ONLY 


IF BLOCK COUNT WENT 


TO ZERO 


759 


000304 





062170 


3 


1 


07 


10 


MOV 


AC7,BR 


;GET CONTROL BITS 


760 


000305 





106326 


4 


3 


0326 




JMPB4 


CMDEND 


; END OF COMMAND IF NOT REPEATABLE 


761 


000306 





002011 





1 


Oil 




LDBR 


MB 


; SELECT MASSBUS INTERFACE 


762 


000307 





066371 


3 


3 


17 


11 


MOVB 


IOSEL 




763 


000310 





132002 


5 


5 


00 


02 


DATI 


CNTL,AC0 


jGET LOW ORDER OF BLOCK COUNT 


764 


000311 





062003 


3 


1 


00 


03 


INC 


AC0,BR 


; INCREMENT THE COUNT 


765 


000312 





066051 


3 


3 


02 


11 


MOVB 


CNTL 


; RESTORE IT 


766 


000313 





132003 


5 


5 


00 


03 


DATI 


CNTH,AC0 


>GET HIGH ORDER BITS 


767 


000314 





062004 


3 


1 


00 


04 


ADC 


AC0,BR 


J ADD CARRY, IF ANY 


768 


000315 





066071 


3 


3 


03 


It 


MOVB 


CNTH 


^RESTORE COUNT 


769 


000316 





002033 





t 


033 




LDBR 


CHN 


f SELECT CHANNEL INTERFACE 


770 


000317 





066371 


3 


3 


17 


It 


MOVB 


IOSEL 


771 


000320 





112326 


4 


5 


0326 




JMPC 


CMDEND 


? END OF COMMAND IF COUNT WENT TO ZERO 


772 


000321 





117253 


4 


7 


1253 




JMPSUB 


CHAIN 


f ACCEPT THE STATUS AND INDICATE CHAINING 


773 


000322 





100273 


4 





0273 




JMP 


RPTCMD 


? REPEAT THE COMMAND 



774 
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775 














; CHECK 


IF COMMAND WAS A REW OR Utih 




776 














;IF SO, 


PREVENT 


READING SENSE BYTES 




777 

r f r 

778 


000323 





002004 





1 


004 


QUICK! 


LDBR 


SUPRES 


;GET SUPPRESS SENSE BYTE BIf 


779 


000324 





062173 


3 


1 


07 13 




LANDB 


AC7,BR 


; CHECK IF SET IN CONTROL BITS 


780 


000325 





072114 


3 


5 


04 14 




LORBR 


AC4 


;IF SO, SET SUPPRESS BIT IN FLAGS 


781 
782 














itm or 


COMMAND 


EXECUTION 




783 














f REPORT 


NORMAL 


ENDING STATUS AND INTERRUPT HOST 


784 
785 


000326 

\F ^*<F *r Wr m$ 





002011 





1 


011 


CWDEMDJ 


LDBR 


MB 


1 SELECT MASSBUS INTERFACE 


786 


000327 

V V V W i> r 


o 


066371 


3 


3 


17 11 




MOVB 


IOSEL 




787 


000330 

*r \r V n«r w 


o 


062030 


3 


1 


01 10 




MOV 


AC1,BR 


;GET ENDING STATUS 


788 


000331 


o 


064231 


3 


2 


11 11 




MOVB 


STBYTE 


jPUT IN STATUS B¥TE REGISTER 


789 


000332 


o 


062110 

v tw 4mt- up am 


3 


1 


04 10 




MOV 


AC4,BR 


J GET FLAGS 


790 


000333 


o 


014000 





6 


000 




SHR 




fSHIFT FSENSE TO BRO 


791 


000334 





104346 


4 


2 


0346 




JMPBO 


FORCST 


;SKIP IF SET 


792 


000335 


o 


117234 


4 


7 


1234 




JMPSU8 


DSELCT 


t DESELECT FROM DEVICE 


793 


000336 

vr v V »r mr W 


o 


002011 





1 


011 


N'ORMDN : 


LDBR 


MB 


? SELECT MASSBUS 


794 


000337 


o 


066371 


3 


3 


17 11 




MOVB 


IOSEL 




795 


000340 





002000 





1 


000 




LDBR 





J GET A ZERO 


796 


000341 





064371 


3 


2 


17 11 




MOVB 


FLAGS 


; CLEAR THE FLAGS 


797 


000342 





103767 


4 


1 


1767 




iJMPI 


INf ERUPT 


; CHECK ON INTERRUPTS 


798 


000343 


o 


002202 





1 


202 




LDBR 


ATA+CLRGO 


;GET ATTENTION BIT 


799 


000344 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 


t INTERRUPT THE HOST 


800 


000345 





100026 


4 





0026 




JMP 


IDLE 


fGO IDLE 


801 
802 


000346 





117734 


4 


7 


1734 


rORCSTt 


JMPSUB 


LOGREG 


fLOG THE REGISTERS 


803 


000347 





117602 


4 


7 


1602 




JMP5UB 


CSENSE 


?READ THE SENSE BYTES WITH CHAINED COMMAND 


804 


000350 





100336 


4 





0336 




JMP 


NORMDN 


/NOW TERMINATE COMMAND 



805 
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806 
















807 
















808 
















809 
















810 
















811 
















812 
















813 
















814 
















815 
















816 
















817 


000351 


o 


002030 





I 





030 


818 


000352 





064031 


3 


2 





01 11 


819 


000353 





000400 








1 


000 


820 


000354 





001006 








2 


006 


821 


000355 





070070 


3 


4 





03 10 


822 


000356 





032033 


1 


5 





01 13 


823 


000357 





002017 





1 


o 


017 


824 


000360 





062033 


3 


1 





01 13 


825 


000361 





072011 


3 


5 





00 11 


826 


000362 


o 


000401 





o 


1 


001 


827 


000363 


o 


002200 





1 





200 


828 


000364 





061000 


3 





2 


00 00 


829 


000365 


o 


052151 


2 


5 





06 11 


830 


000366 





114212 


4 


6 


0212 


831 
















832 
















833 
















834 


000367 





062030 


3 


1 





01 10 


835 


000370 





110212 


4 


4 


0212 


836 


000371 





014000 





6 





000 


837 


000372 





014000 





6 





000 


838 


000373 





014000 





6 





000 


839 


000374 





014000 





6 





000 


840 


000375 





072031 


3 


5 





01 11 


841 


000376 





002220 





1 





220 


842 


000377 





061020 


3 





2 


01 00 


843 


000400 





052011 


2 


5 





00 11 


844 


000401 





114212 


4 


6 


0212 


845 

















SUBTTL WRITE COMMAND EXECUTION 

;CONTROL BITS IN AC7 FOR WRITE COMMANDS FROM SEARCH TABLES 



BIT 6 SET FOR ALL COMMANDS EXCEPT DIAGNOSTIC MODE 
BIT ALWAYS SET 



;A WRITE COMMAND HAS BEEN RECEIVED 
?CHECK IF DRIVE MODE IS LEGAL 



DOWRT: 



LDBR 

MOVB 

LDMARX 

LOMAR 

MOV 

DAT I 

LDBR 

LANDS 

MOVB 

LDMARX 

LDBR 

ADB 

MOVMEM 
JMPZ 



OCC+DTD 

MPSCR1 



CMND 
AC3 , MEM 
M0DE,AC1 
17 

AC!, BR 
ACO 

DRVM0D.-8 
DRVM0D&377 
ACO , MAR 
AC6 

ILDFNC 



t CHECK IF DATA MODE IS LEGAL 



MOV 
JMPB7 

SHR 
SHR 

SHR 

SHR 

MOVB 

LDBR 

ADB 



AC1,BR 

ILDFNC 



AC1 

DATMOD&377 
ACl,MAR 



MOVMEM ACO 
JMPZ ILDFNC 



J SET OCCUPIED AND DATA TRANSFER 

; DIRECTION TO DEVICE 

> SELECT MEMORY PAGE 

; SELECT MEMORY LOCATION TO SAVE 

; THE REQUESTED COMMAND 

J READ DRIVE MODE REGISTER 

;GET MASK OF DRIVE MODE BITS 

; CLEAR OTHER BITS 

fSAVE IN ACO 

; SELECT MEMORY PAGE CONTAINING TABLES 

?GET ADDRESS OF DRIVE MODE TABLE 

J INDEX BY CODE RECEIVED 

?COPY CODE COMMAND BYTE INTO ACS 

?IF -1, CODE WAS ILLEGAL 



I GET DATA FORMAT CODE 

;IF 10-17, ILLEGAL 

; RIGHT JUSITFY THE FORMAT CODE 



jSAVE IT 

?GET DATA MODE TABLE ADDRESS 

; INDEX BY CODE RECEIVED 

j READ THE CONTENTS OF TABLE ENTRY 

J IF -1, ILLEGAL CODE 



DXMCA 
DXMCA 
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846 yCOMPUTE HALF WORDS TO TRANSFER OVER MASS8U5 

847 



848 














jtlOj 


JMPSUB 


DIVIDE 


JDIVIDE BYTE COUNT BY BYTES/WORD 


849 


000402 





002327 





1 


327 


GOSUB 


DIVIDE 


ftlOJ DIVIDE BYTE COUNT BY BYTES/WORD 


850 


000403 





177231 


7 


7 


2 11 11 










851 


000404 





060047 


3 





02 07 




DEC 


AC2 


|GET REMAINDER -1 


852 


000405 





114410 


4 


6 


0410 




JMPZ 


, + 3 

AC4 


j JUMP IF REMAINDER WAS ZERO 


853 


000406 





072103 


3 


5 


04 03 




I NCR 


; REMAINDER WAS NGN ZERO 


854 


000407 





072064 


3 


5 


03 04 




ADCR 


AC 3 


; INCREASE WORD COUNT BY ONE 


855 


000410 





062005 


3 


1 


00 05 




SHI, 


AC0,BR 


J GET BYTES/WORD TIMES 2 


856 


000411 





106413 


4 


3 


0413 




JMP84 


• +2 


;SKIP IF HI-DEN MODE 


857 


000412 





100425 


4 





0425 




JMP 


HIDMOD 


;NO 


858 


000413 





072105 


3 


5 


04 05 




SHLR 


AC4 


; DOUBLE THE WORD COUNT 


859 


000414 





072066 


3 


5 


03 06 




ROTLR 


AC3 


; AS BYTES/WORD WAS FOR 2 WORDS 


860 


000415 





060047 


3 





02 07 




DEC 


AC2 


J GET REMAINDER -1 


861 


000416 





114425 


4 


6 


0425 




JMPZ 


HIDMOD 


/JUMP IF REMAINDER WAS ZERO 


862 


000417 





002005 





1 


005 




LDBR 


5 


f SUBTRACT FIVE FROM REMAINING BYTES 


863 


000420 





060056 


3 





02 16 




TSB 


AC 2 


t TO SEE IF REMAINING BYTES 


864 


000421 





112425 


4 


5 


0425 




JMPC 


HIDMOD 


; WILL REQUIRE SECOND WORD 


865 


000422 





072067 


3 


5 


03 07 




DECR 


AC3 


J NO, DECREASE WORD COUNT 


866 


000423 





072107 


3 


5 


04 07 




DECR 


AC4 


? BY ONE 


867 


000424 





072064 


3 


5 


03 04 




ADCR 


AC3 




868 


000425 





002000 





1 


000 


HlDMODt 


LDBR 





;PUT A ZERO IN AC2 


869 


000426 





072051 


3 


5 


02 11 




MOVB 


A C# 2* 




870 


000427 





062110 


3 


1 


04 10 




MOV 


AC4,8R 


? NEGATE THE WORD COUNT 


871 


000430 





062056 


3 


1 


02 16 




TSB 


AC2,BR 


;IN AC3-AC4 


872 


000431 





072111 


3 


5 


04 11 




MOVB 


AC4 




873 


000432 





062070 


3 


1 


03 10 




MOV 


AC3,JR 




874 


000433 





062042 


3 


1 


02 02 




OSBC 


AC2,BR 




875 


000434 





072071 


3 


5 


03 11 




MOVB 


AC3 





876 



DXMCA • 
DXMCA 

877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
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? GET ADDRESS OF FORMATTER START ADDRESS FOR DATA MODE 



000435 





002227 





1 


227 


LDBR 


377&<FMTWRT-i> 


000436 





061020 


3 





2 01 00 


ADB 


AC1,MAR 


(J A % 7 


A 

V 


A AO A 1 i 


4 


1 
i 


A A A 1 1 


Mf fl If M C M 


BR 


000440 





000400 








1 000 


LDMARX 





V V v ** *k I 


A 

V 


a a 1 a i a 


A 

U 


A 

V 


i v i O 


LDMAR 


MCQUNT 


000442 





071505 


3 


4 


3 04 05 


SHL 


AC4,MEM,1 


000443 





071466 


3 


4 


3 03 06 


ROTL 


AC3,MEM,I 


000444 





070011 


3 


4 


00 H 


MOVB 


MEM 


000445 





117712 


4 


7 


1712 


JMPSUB 


CLRSNS 














jWAIT FOR RH20 


TO ASSERT RUN 


000446 





022000 


1 


1 


00 00 


DATI 


MPSCR0,BR 


000447 





104452 


4 


2 


0452 


JMPBO 


. + 3 


000450 





002035 





1 


035 


GOSUB 


WAITRN 


000451 





176231 


7 


7 


11 11 


















; ISSUE MODE SET 


TO DRIVE If REQUESTED 


000452 





032132 


1 


5 


05 12 


DATI 


DR,AC5 


000453 





062150 


3 


1 


06 10 


MOV 


AC6,BR 


000454 





104456 


4 


2 


0456 


JMPBO 


♦ 2 


000455 





100464 


4 





0464 


JMp 


WNOMOD 


000456 





117270 


4 


7 


1270 


JMPSUB 


SELECT 


000457 





103622 


4 


t 


1622 


JMPI 


ISTPE 


000460 





115614 


4 


6 


1614 


JMPZ 


ISTERR 


000461 





117253 


4 


7 


1253 


JMPSUB 


CHAIN 



;GET ADDRESS OF TABLE 

; INDEX BY DATA MODE 

;GET START ADDRESS 

; SELECT MEMORY PAGE 

; SELECT MASSBUS COUNTER STORAGE AREA 

t MULTIPLY WORD COUNT BY TWO 

?T0 OBTAIN HALF WORD COUNT 

;SAVE FORMATTER START ADDRESS 

yCLEAR THE SENSE BYTE AREA 



fREAD STATUS REGISTER 
jSKIP IF RUN IS ASSERTED 
;NO, WAIT FOR IT 



J GET DRIVE NUMBER 

I GET MODE SET COMMAND BYTE 

?SKIP IF NOT ZERO 

;NO MODE SET REQUESTED 

/SELECT DRIVE AND SEND COMMAND 

JCHECK IF A STATUS BYTE PARITY ERROR 

;JUMP IF INITIAL SELECTION STATUS 

; ACCEPT STATUS AND INDICATE CHAINING 



jIF COMMAND IS DIAGNOSTIC WRITEt 
;SEND DIAGNOSTIC MODE SET COMMAND 
;THEN CHANGE COMMAND TO A WRITE 



911 


000462 





002011 





1 


Oil 


LDBR 


MB 


? SELECT MASSBUS INTERFACE 


912 


000463 





066371 


3 


3 


17 11 


MOVB 


IOSEL 


913 


000464 





001006 








2 006 


WNOMODS LDMAR 


CMND 


? SELECT MEMORY ADDRESS WITH SAVED COMMAND 


914 


000465 





052151 


2 


5 


06 11 


MOVMEM 


AC6 


J MOVE COMMAND INTO AC6 


915 


000466 





032117 


1 


5 


04 17 


DATI 


FLAGS, AC4 


|GET FLAGS INTO AC 4 


916 


00046? 





062165 


3 


1 


07 05 


SHL 


AC7,BR 


J CHECK IF DIAGNOSTIC MODE 


917 


000470 





11047? 


4 


4 


0477 


JMPB7 


SNDWRT 


;IF NOT, IT IS TIME TO WRITE 


918 


000471 





117270 


4 


7 


1270 


JMPSUB 


SELECT 


# SELECT THE DRIVE AND SEND COMMAND 


919 


000472 





103622 


4 


1 


1622 


JMPI 


ISTPE 


f CHECK IF A STATUS BYTE PARITY ERROR 


920 


000473 





115614 


4 


6 


1614 


JMPZ 


ISTERR 


,»JUMP IF AN INITIAL STATUS ERROR 


921 


000474 





117253 


4 


7 


1253 


JMPSUB 


CHAIN 


| ACCEPT STATUS AND INDICATE CHAINING 


922 


000475 





002001 





1 


001 


LDBR 


1 


;GET A WRITE COMMAND 


923 


000476 





072151 


3 


5 


06 11 


MOVB 


AC6 


f CHANGE COMMAND BYTE 



924 



DXMCA 
DXMCA 
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925 
















/SEND THE WRITE 


COMMAND 






















927 


000477 





117270 


4 


7 


1270 




SMDWRTI JMPSUB 


SELECT 


928 


000500 





103622 


4 


1 


1622 




JMPI 


ISTPE 


929 


000501 





115614 


4 


6 


1614 




JMPZ 


ISTERR 


930 


000502 





117224 


4 


7 


1224 




JMPSUB 


ACCEPT 


931 
932 


000503 





001007 








2 007 


LDMAR 


WRTSET 


933 


000504 





047771 


2 


3 


3 17 


11 


MOVMEM 


10SEL,I 


934 


000505 





124142 


5 


2 


06 


02 


DATI 


CNTL,BCLQ 


935 


000506 





124163 


5 


2 


07 


03 


DATI 


CNTH,8CHQ 


936 


000507 





045511 


2 


2 


3 04 


11 


MOVMEM 


MCLO,I 


937 


000510 





045531 


2 


2 


3 05 


11 


MOVMEM 


MCHQ,I 


938 


000511 





045611 


2 


2 


3 10 


11 


MOVMEM 


DFRMAD, I 


939 


000512 





045451 


2 


2 


3 02 


11 


MOVMEM 


REG2,I 


940 


000513 





044011 


2 


2 


00 


11 


MOVMEM 


REGO 


941 


000514 





044271 


2 


2 


13 


11 


MOVMEM 


HSDPIN 


942 


000515 





045431 


2 


2 


3 01 


11 


MOVMEM 


REGi # X 


943 


000516 





047771 


2 


3 


3 17 


11 


MOVMEM 


IOSEL,I 


944 


000517 





045431 


2 


2 


3 01 


11 


MOVMEM 


MPSCR1,I 


945 




















946 
















; WAIT FOR STATUS IN FROM 1 


947 




















948 


000520 





047771 


2 


3 


3 17 


11 


MOVMEM 


IOSEL,I 


949 


000521 





103767 


4 


1 


1767 




JMPI 


INTERUPT 


950 


000522 





022004 


1 


I 


00 


04 


DATI 


TAGIN0,BR 


951 


000523 





104525 


4 


2 


0525 




JMPBO 


.+2 


952 


000524 





100521 


4 





0521 




JMP 


.•3 


953 


000525 





047771 


2 


3 


3 17 


11 


MOVMEM 


I OS EL, I 


954 


000526 





045431 


2 


2 


3 01 


11 


MOVMEM 


REGI, I 


955 


000527 





103076 


4 


1 


1076 




JMPI 


WRTCHK 


956 


000530 





047771 


2 


3 


3 17 


11 


MOVMEM 


IOSEL»I 


957 


000531 





117215 


4 


7 


1215 




JMPSUB 


CHKSTS 


958 


000532 





103643 


4 


1 


1643 




JMPI 


ESTPE 


959 


000533 





115625 


4 


6 


1625 




JMPZ 


ESTERR 


960 
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JSELECT DRIVE AND SEND COMMAND 

f CHECK IF A STATUS BYTE PARITY ERROR 

I JUMP IF INITIAL SELECTION ERROR 

; ACCEPT THE STATUS 

; START TAPE MOTION 

; SELECT MEMORY LIST FOR SETUP 

I SELECT DATA PATH FOR OUTPUT, MB FOR INPUT 

J LOAD BYTE COUNTER 

;LOAD MASSBUS COUNTER 

;LOAD FORMATTER START ADDRESS 

J SET END ENABLES, CLEAR ROM ADR 8 

; CLEAR FLAGS 

; PULSE HIGH SPEED INIT 

J SET DX HIGH SPEED 

; SELECT MASSBUS INTERFACE 

J START THE TRANSFER 



t SELECT THE CHANNEL INTERFACE 
;CHECK ON INTERRUPTS 
;READ THE TAG IN LINES 
fSKIP IF STATUS IN IS SET 
;N0, KEEP WAITING 
; SELECT DATA PATH 
? CLEAR HIGH SPEED 

;CHECK INTERRUPTS FOR PARITY ERRORS 
; SELECT CHANNEL INTERFACE 
;GET AND CHECK ENOING STATUS 
,*CHECK IF A STATUS BYTE PARITY ERROR 
fJUMP IF AN ENDING STATUS ERROR 
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961 J SEND EBL AND CHECK IF DONE 

962 





U v D J 4 


A 

Q 


U 4 7 7 f X 


4 


a 


^ 4 *7 4 4 

3 17 i X 










A 

V 


A ^ O A A*I 


X 


© 


A A A A *f 

U UU U7 


DAT1 


HrPoi f ACv 


y v h? 






A&O AA*% 




4 

X 


A A A A*i 


CUT 


& f* A ft D 
AvU f DH 




UUUDJ f 


A 
V 


4 A f 4 4 ** 
1 U / 1 1 / 


A 




XXI/ 


1 M Oft A 


lil O *f* 13) IT 


OA1 
jO / 




A 




4, 




i a i 11 

J U X XI 


MH\/ MlTM 

W U V w E* w 


M O C f* O 1 T 


OAR 

3F V *3 


A A A A 1 


A 


AAA A A A 


A 


A 


A AAA 

V V V M 








v V V © t* 


A 

U 


A A A A A A 
U v V v w V 


A 


A 

V 


A AAA 






970 


000543 





100544 


4 





0544 


JMP 


.♦i 


971 


000544 





022000 


1 


1 


00 00 


DAT! 


MPSCR0,8R 


972 


000545 





104547 


4 


2 


0547 


JMPB0 


.+2 


973 


000546 





101020 


4 





1020 


jMp 


XFREND 


974 


000547 





046371 


2 


3 


17 11 


MOVMEM 


I0SEL 


975 


000550 





117253 


4 


7 


1253 


JMPSUB 


CHAIN 


976 


000551 





100477 


4 





0477 


JMP 


SNDWRT 



977 
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? SELECT MASSBUS INTERFACE 

; READ DATA BUFFER PARITY ERROR BIT 

/MOVE TO BR BIT 4 

/JUMP IF DATA BUFFER PARITY ERROR 
/SEND EBL TO RH20 
; STALL 

/ ALLOW RUN TO DROP 

/READ RUN BIT 

/SKIP IF RUN IS STILL SET 

/NO, END OF COMMAND 

f SELECT CHANNEL INTERFACE 

J ACCEPT THE STATUS AND INDICATE CHAINING 

/PERFORM ANOTHER WRITE OPERATION 
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978 
979 
980 
981 
982 
983 
984 
985 
986 
987 

988 000552 002020 10 020 

989 000553 064031 3 2 01 11 

990 000554 000400 1 000 

991 000555 001006 2 006 

992 000556 070070 3 4 03 10 

993 000557 032033 1 5 01 13 

994 000560 002017 1 017 

995 000561 062033 3 1 01 13 

996 000562 072011 3 5 00 11 

997 000563 000401 1 001 

998 000564 002200 1 200 

999 000565 061000 3 2 00 00 

1000 000566 052151 2 5 06 11 

1001 000567 114212 4 6 0212 
1002 

1003 
1004 

1005 000570 062030 3 1 01 10 

1006 000571 110212 4 4 0212 

1007 000572 014000 6 000 

1008 000573 014000 6 000 

1009 000574 014000 6 000 

1010 000575 014000 6 000 

1011 000576 072031 3 5 01 11 

1012 000577 002220 1 220 

1013 000600 061020 3 2 01 00 

1014 000601 040011 2 00 11 

1015 000602 114212 4 6 0212 
1016 



SUBTIL READ COMMAND EXECUTION 

f CONTROL BITS IN AC7 FOR READ COMMAND FROM SEARCH TABLES 
; BIT 6 SET FOR READ BACKWARD 

; BIT ALWAYS ZERO 



fA READ COMMAND HAS BEEN RECEIVED 
; CHECK IF DRIVE MODE IS LEGAL 



DOREADt 



LDBR 

MOVB 

LDMARX 

LDMAR 

MOV 

DATI 

LDBR 

LANDB 

MOVB 

LDMARX 

LDBR 

ADB 

MOVMEM 
vJMPZ 



occ 

MPSCR1 


CMND 
AC3 f MEtM 
M0DE,AC1 
17 

AC1,BR 

ACO 

DRVM0D.-8 
DRVMOD&377 
ACO , MAR 
AC6 

ILDFNC 



;CHECK IF DATA MODE IS LEGAL 



MOV 

JMPB7 

SHR 

SHR 

SHR 

SHR 

MOVB 

LDBR 

ADB 

MOVMEM 
JMPZ 



AC1,BR 
ILDFNC 



AC1 

DATM0D&377 
AC 1, MAR 

ILDFNC 



;SET OCCUPIED AND DATA TRANSFER 
; DIRECTION FROM DEVICE 
? SELECT MEMORY PAGE 

; SELECT MEMORY LOCATION TO SAVE COMMAND 

fSAVE COMMAND BYTE 

;READ DRIVE MODE REGISTER 

yGET MASK OF DRIVE MODE BITS 

? CLEAR OTHER BITS 

;SAVE IN ACO 

; SELECT MEMORY PAGE CONTAINING TABLES 
; SELECT DRIVE MODE TABLE 
; INDEX BY CODE RECEIVED 
yCOPY COMMAND BYTE TO AC6 
;IF -1, ILLEGAL CODE 



;GET DATA FORMAT CODE 

;IF 10-17, CODE IS ILLEGAL 

; RIGHT JUSITFY THE CODE 



JSAVE IT 

;GET ADDRESS OF DATA MODE TABLE 

; INDEX BY CODE RECEIVED 

;READ THE CONTENTS 

JIF -1, CODE IS ILLEGAL 
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1 A 1 7 

X V 1 f 














1 n 1 r 

A v 4 W 














4 A 4 O 

I OX 9 


UUUDUi 


Q 


A A fH 4 AC 

00a lfc5 


3 


1 


A A "f Ad 1 

07 05 


4 AOA 


A A AAA A 

U U 1} O v % 


A 


4 4 A A 4 A 


A 
4 


A 

4 


A A 4 A 
0f» X 1/ 


1 A9 1 


v v v O V "3 


A 


A 099 1 A 


A 


1 

X 


A O 1 A 

v 434 


1 AOO 


A A A A A A 


A 


A A 4 A O A 


3 


A 




1 A 4 A A 

2 0100 


1 A9 1 

1 V £ J 


AAAAA1 


A 


1 A A A 1 (% 


A 


A 


A A 1 A 

vO X 


JL V A ** 














1 A O •% 
X AD 














1 A9ft 


A AO A 4 A 
vvvOi M 


A 


A A9 1 97 


A 

V 


4 

X 


A 1 O 7 
v 3 a / 


* w A f 


00ft 4 1 


A 


1 7 7 911 
X / / A £ X 


7 


7 


O 4 4 4 4 

A XX XI 


X U 46 














1 AOO 


A AAA 1 9 

uyvD X A 


A 


A A O 9 A 4 
U U A A 4 Jl 


A 
O 


4 

X 


A O A 4 
O A41 


1 A1A 

JL V V 


A AO A 4 1 


A 


Aft 4 A 9 A 


3 


A 


O A 4 A A 
A V X 00 


















AOO A 4 A 


A 

V 


A A 4 AAA 

V 4 X O 4 O 


*> 
A 


A 

U 


O AO A A 
A A 00 


4 All 

X 033 


A A A A 4 K 


A 



A A O A 4 4 
4 2 V I 1 


O 


4 

X 


A A A 4 4 

00 1 1 


1 Q 34 




A 




AAA AAA 

000400 


A 




A 



4 AAA 

X 000 


4 Alt 


A A A A 4 7 


A 

V 


A A 4 A 1 A 


A 

o 


A 

V 


O AHA 

£ 30 


4 A 1 A 


AO A AO A 
VVVO/U 


A 

V 


A 7 A A 4 4 
/ O X X 


1 
3 


A 

4 


A A A 4 4 

00 11 


4 ait 

X03 / 


A A A A 14 

V o 2 1 


a 




11771/ 


4 


*T 
/ 


4 *I 4 **i 
















i aiq 














4 AAA 

X U^U 














4 A A 1 


A A A A O O 


A 

V 


AOO A A A 


4 

X 


4 

X 


A A A A A 
00 


1 AA9 

JL v " A 


A A0ft9 1 


O 

V 


1 AAA9ft 


A 

** 


9 

A 


A AO A 
v A 


jt v *t a 


A A ft 9 A 


A 


A 9 A 1 *% 


A 

V 


1 

X 


A A 1 A 


4 AAA 


A A O ft 9 K 





1 7ft9 11 

Jl f C? A X 


7 

f 


7 


A 4 4 4 4 

O XX XX 


4 AAR 














1 AAA 

Jt 














1 AA7 














4 AAA 


A A A A OA 
V A O 


A 




A 1 7 4 1*5 

J z X J a 


1 


A 


A AC 4 f* 

05 12 


4 AA0 

ji o**y 


A A A A O 7 


A 
U 


A AO 4 A A 


1 

3 


4 

X 


A A A 4 A 

00 xo 


4 A 6* A 


A AO A 1 A 


A 

V 


4 A A A 1 
X O 4 3 A 


A 
4 


o 

A 


A A lO 
O 3 A 


4 A C 4 


AAA£")4 


A 

O 


4 A A A A A 


4 


A 




A £. il A 

0&40 


1052 


000632 





117270 


4 


7 


1270 


1053 


000633 





103622 


4 


1 


1622 


1054 


000634 





115152 


4 


6 


1152 


1055 


000635 





117253 


4 


7 


1253 


1056 















;GET ADDRESS OF FORMATTER START ADDRESSES FOR DATA MODE 



SHL 

JMPB7 

LDBR 

ADB 

JMp 

rtlOJ RDBADR; 
RDBADR 1 G0SUB 



LDBR 
ADB 

ADM 

RDADRl M0VMEM 
LDMARX 
LDMAR 
MOVB 
JMPSUB 



AC7,BR 
RDBADR 

377&<FMTRD«l> 

ACl,MAR 

RDADR 



JMPSUB 
DIVIDE 



DIVIDE 



377&<FMTRDB-1> 
ACi,MAR 

AC2 f MAR 

BR 


FMTADR 

MEM 

CLRSNS 



;WAIT FOR RH20 TO ASSERT RUN 

DAT! MPSCR0,iR 
JMPBO ,*3 
GOSUB WAITRN 



I ISSUE MODE SET TO DRIVE IF REQUESTED 



DAT! 
MOV 
JMPBO 
JMP 

JMPSUB 
J MP I 
JMPZ 
JMPSUB 



DR,AC5 
AC6,BR 
•+2 

RNOMOD 

SELECT 

ISTPE 

RDI5E 

CHAIN 



>GET CONTROL BITS 
;JUMP IF READ BACKWARD 
fGET ADDRESS OF TABLE 
; INDEX BY DATA MODE 



> DIVIDE BYTE COUNT BY BYTES/WORD 
fCiOJ DIVIDE BYTE COUNT BY BYTES/WORD 

f RETURNS WITH REMAINDER IN AC2 

; SELECT ADDRESS OF TABLE 

f INDEX BY DATA MODE TO FIND TABLE 

; OF FORMATTER ADDRESSES 

t INDEX BY REMAINING BYTES IN FIRST WORD 

?GET START ADDRESS FOR FORMATTER 

;SELECT MEMORY PAGE 

; SELECT STORAGE LOCATION 

?SAVE IT 

;CLEAR THE SENSE BYTE AREA 



f READ STATUS REGISTER 
;SKIP IF RUN IS SET 
>N0, WAIT FOR IT 



| GET DRIVE NUMBER 

jfGET MODE SET COMMAND 

;SKIP IF NOT ZERO 

?N0 MODE SET REQUESTED 

J SELECT DRIVE AND SEND COMMAND 

JCHECK IF A STATUS BYTE PARITY ERROR 

?JUMP IF INITIAL SELECTION STATUS 

| ACCEPT STATUS AND INDICATE CHAINING 



DXMCA 
DXMCA 
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1057 ;SEND TRACK-IN-ERROR IF REQUESTED 

1058 



4 A C A 

1059 


A A A £ "» £l 

000o3o 


A 



A A 1 A 4 4 





4 

1 


A A 4 4 

Oil 


f A IS D 




m Ctrl tpnm WfACCtlllC T WTCDIT Ar*IT 
?ai;,Lc#Lx MApaoua XNx8*Kr«wti« 


1060 


A A A At *% *1 

000o3 / 





0oo37 1 


3 


3 


A 4 *> 4 4 

17 11 








4 A £ 4 

10O1 


000o40 


A 




A ^ A 4 4 "I 
0321 17 


4 

1 


c 

5 


A ft A 4 *T 

04 1 / 


m n u i*i rs • rsAmT 


f UA vjO * Hv-4 




4 A C A 

10o2 


A A A £ /I 4 

000541 


A 




ft C O 1 1ft 
00 4110 


3 


4 

1 


A A A 4 A 

04 10 


wuv 


Av4 # OIK 


|UUrl lU oK 


10o3 


A A A £. A *1 


A 


4 A A £L A A 

X 04&44 


4 


A 


A £ A A 

0044 


t UQ £H ft 




• TO Tfi* TO A rttT.. T W^STOOrlR K B* Q f I IT .<5 V IT ft 


4 A £ /I 

1 0o4 


A A A £L A H 


A 



4 AAtTK 
1 V UO / 5 


A 

4 


ft 


A£«!C 

vo/o 


7 MO 


NU 1 XL 




4 A £1 C 

lOOD 


A A A £L A A 

© 4 4 


A 




ft ft O ft Tl "> 

UU / 3 S 


A 

V 


4 
1 


A A ^ 5 

033 




3 3 




4 A £ 

lOoo 


AAA£ AC 


A 



A "I A4 C 4 

072151 


3 


c 
5 


A A £. 4 4 

00 1 1 




Art 


; X ™ *U AvO 




A A A & A & 
O v O 4 V 


A 
O 


ft 1 *% a ft a 


4 

1 


c 

5 


ft ft O 4 £L 

O 04(5 1 


U A i Jl 


I 4LD I i f JtV* 




4 f\ £L A 

10&8 


00Q647 


A 




4 4 TATA 

117270 


4 


mm 

1 


4 A "T A 

1270 




4f«t»f Bt/^if 


• ccy t^r"!* not vf i^n c&riyft /tim mi & n 


4 4* J" A 

1069 


A A A £ CT A 

000650 





4 A **» A A 

103622 


4 

4 


1 


1 A A A 

1622 


JMPI 


V 45 m IP 

xoTPE 


• /■»Utr/ M »W* TP A G>r Af IfC tJVTr DADTfV fODflO 

?CnEC!v IF A axATUS oi 1& irAKIT* iJ#KHUK 


l ATA 

10 /v 


A A A H £ 4 


A 
V 


4 4 C 4 C A 

115152 


A 

4 


it 




4 4 CO 
1 15* 




DnTcir 
KUxolt 


• .1 HMD TIT TMTVT&T & Tf f C STD P HD 

JUUmr X? xwxJlXAii olAXUo RHKUR 


1071 


000652 


A 




A A A A 4 A 

002014 


A 




4 
1 


A A 4 A 

014 


v A f!i A 


4 A 

14 


• r 4 4 i eri»t!D ukcv nt 1 at a jua r\tr rw qd 
?lllj o&Tur MASK Ur Ltt AIMD Oc* IN fcm 


I a «i n 

1072 


000653 


A 




A £. A A H •* 

062037 


3 


4 

1 


A A 4 I 1 

0117 


05B 




• r 4 4 1 /trill n A & u| ▼ *TU CfPAI^ItC D T vpa 


1073 


A A A £. C? A 

000654 


A 




4 4 J if 1C 

114675 


A 

4 





A £ "7 C 

0070 


U WP4# 


NOTIE 


; CU3 JUMP IF BOTH CE AND DE ASSERTED 


4 A T A 

1074 


















y C113 AND D0N # T TRY TO SEND TIE BYTE 


i Air 

1075 


5 5 


A 




4 4 1*1A 

1172*4 


A 

4 


** 

/ 


f A A A 

1*24 


U ™P*>U o 


ACCEPT 


J ACCEPT THE STATUS 


1 / 


ft ft ft & t* £ 


ft 


ft f% *7 ft K ft 




4 

i 


ft ftO 4 ft 


rl U V 


AC2,BR 


J GET TRACK-IN-ERR0R BYTE 


4 A t *t 


A A A£ IS *f 


ft 

V 


ft A A O 1 4 

0t>443 1 


3 




ft 4 4 4 4 

11 11 


WUVo 


B0RL0 


?SEND TO DEVICE 


AV/o 


ft ft ft & ft 
U O C> 


A 

o 


A A A A AC 


4 

1 


4 

I 


ft ft ft ft c 

v vv U 3 


jl x 


TAGIN1 # BR 


f READ TAG IN LINES 


4 A 7 O 


ft ft ft A A 1 


A 

W 


4 1 ft£ A * 


A 

*k 


A 


ft Aft * 

i I o O a 


y n r D / 


. + 2 


?SKIP IF SERVICE IN IS UP 


4 AQA 

Jvov 


ft ft ft & & *J 
vOUt>OZ 


ft 
V 


4 ftft& &ft 


A 

4 


ft 


ft 1% Kk ft 
O0OO 


tun 


,-2 ;N0, WAIT FOR IT 

SR V0yT+HI»DGUT*SEfc0UT+CfcKQUT+KTR0Uf I SEND SERVICE OUT TO DRIVE 


4 A Q 4 


A A ft & £. H 
VVVDOJ 


ft 

V 


ft ft 1 1 K *5 


ft 
U 


4 

I 


ft ICO 




lOoz 


ft A tiH £ A 


A 
V 


ft & Aft C 4 
V O 4 v O 1 




46 


ft ft*> 4 4 
V 0/ 11 


U fit/ Q 


TORO 




1 U $ a 


ft ft ft A £ K 


ft 

V 


ft o *> ft n -ft 


4 

X 


4 

4. 


ft ft ft ft «% 




TAGIN1,BR 


?READ TAG IN liINES 


1084 


000666 





110665 


4 


4 


0665 


JMPB7 


• -1 


?WAIT FOR SERVICE IN TO DROP 


1085 


000667 





002152 





1 


152 


I.DBR 


HLD0UT+SEL0UT+CLK0UT+MTR0UT f CLEAR SERVICE OUT 


1086 


000670 





064051 


3 


2 


02 11 


M0V8 


TORO 




1087 


000671 





117211 


4 


7 


1211 


JMPSUB 


WAITST 


f WAIT FOR ENDING STATUS 


1088 


000672 





103656 


4 


t 


1656 


JMPI 


ESTPE0 


? CHECK IF A STATUS BYTE PARITY ERROR 


1089 


000673 





115155 


4 


6 


1155 


JMPZ 


RDESE0 


? JUMP IF AN ENDING STATUS ERROR 


1090 


000674 





117253 


4 


7 


1253 


JMPSUB 


CHAIN 


? ACCEPT THE STATUS AND INDICATE CHAINING 



1091 
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1092 


















1093 


















1094 


000675 




V 


001006 







2 


006 


109S 


000676 





052 1 51 

V •*? M* X v X 


2 


5 





06 


1 1 

I X 




V V V %} t f 





1 170 7 


A 

** 


7 


1270 




1097 


000700 




V 


1 01 6 7 

* V/ «J «P 4V jt 


A 


1 


1622 




1098 


000701 




V 


115152 


A 


6 


1152 




1099 


000702 





1 17224 


4 


7 


1224 




1100 


















1101 


















1102 


















1103 


















1104 


000703 





G01026 








4 






1105 


000704 





047771 


2 


3 


3 


17 


I 1 


1 106 


00070S 


o 

V 


124142 


5 


2 
*> 





06 




1107 


000706 





124163 


5 


2 





07 


0^ 


1108 


000707 


o 


044111 


2 


2 





04 


1 1 


1109 


000710 


o 


045531 


2 


2 

*> 


3 


05 


4 4 

1 X 


1110 


000711 





045611 


2 


2 


3 


10 


11 


1111 


000717 




V 


0454.51 


2 

** 


2 


3 


02 


11 


1115 


V v' V f * *-J 





v % v 1 A 


2 


2 





00 


It 


1113 


000714 





044271 


2 


2 





13 


11 


1114 


000715 





045431 


2 


2 


3 


01 


It 


1115 


000716 





047771 


2 


3 


3 


17 


11 


1116 


000717 





043431 


2 


2 


3 


01 


11 


1117 



















/SEND THE READ COMMAND 

NOTIEt LDMAR CMND 

MOVMEM AC6 

SNDRDt JMPSUB SELECT 

JMPI ISTPE 

JMPZ RDISE 

JMPSUB ACCEPT 



;SET UP THE DATA PATH INTERFACE 



LDMAR 


RDSET 


MOVMEM 


IOSEL, I 


DATI 


CNTL,BCLO 


DATI 


CNTH,8CH0 


MOVMEM 


MCLO 


MOVMEM 


MCHO,I 


MOVMEM 


DFRMAD, I 


MOVMEM 


REG2,I 


MOVMEM 


REGO 


MOVMEM 


HSDPIN 


MOVMEM 


REG1,I 


MOVMEM 


IOSEL, I 


MOVMEM 


MPSCRl,! 
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; SELECT ADDRESS WHERE COMMAND CODE IS SAVED 

J MOVE CODE TO AC6 

/SELECT DRIVE AND SEND COMMAND 

/ CHECK IF A STATUS BYTE PARITY ERROR 

/JUMP IF INITIAL SELECTION ERROR 

/ACCEPT THE STATUS 

/START TAPE MOTION 



f SELECT READ SETUP LIST 

/SELECT DATA PATH FOR OUTPUT, MB FOR INPUT 

/LOAD BYTE COUNTER 

/ FROM MASSBUS INTERFACE 

/CLEAR MASSBUS COUNTER 

/LOAD FORMATTER START ADDRESS 

/SET MASTER END ON FORMATTER END 

/CLEAR FLAGS 

/PULSE HIGH SPEED INIT 

/SET DX HIGH SPEED 

/SELECT MASSBUS INTERFACE 

/START THE TRANSFER 
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1118 
















1119 
















1120 


000720 





047771 


2 


3 


3 17 


11 


1121 
















1122 
















1123 
















1124 
















1125 
















1126 
















1127 


000721 





032026 


1 


5 


01 


06 


1128 


000722 





002100 





1 


100 




1129 


000723 





072111 


3 


5 


04 


11 


1130 


000724 





002177 





1 


177 




1131 


000725 





072071 


3 


5 


03 


It 


1132 


000726 





002177 





1 


177 


1133 


000727 





072051 


3 


5 


02 


11 


1134 


000730 





103767 


4 


1 


1767 




1135 


000731 





032003 


1 


5 


00 


03 


1136 


000732 





062005 


3 


1 


00 


05 


1137 


000733 





106735 


4 


3 


0735 




1138 


000734 





100763 


4 





0763 




1139 


000735 





022006 


I 


1 


00 


06 


1140 


000736 





060037 


3 





01 


17 


1141 


000737 





114741 


4 


6 


0741 




1142 


000740 





100755 


4 





0755 




1143 


000741 





072047 


3 


5 


02 


07 


1144 


000742 





114744 


4 


6 


0744 




1145 


000743 





100730 


4 





0730 




1146 


000744 





072067 


3 


5 


03 


07 


1147 


000745 





114747 


4 


6 


0747 




1148 


000746 





100726 


4 





0726 




1149 


000747 





072107 


3 


5 


04 


07 


1150 


000750 





114752 


4 


6 


0752 




1151 


000751 





100724 


4 





0724 




1152 


000752 





002107 





t 


107 


1153 


000753 





072011 


3 


5 


00 


11 


1154 


000754 





101351 


4 





1351 




1155 
















1156 
















1157 


000755 





002304 





1 


304 


1158 


000756 





177631 


7 


7 


3 11 


11 


1159 


000757 





103767 


4 


1 


1767 




1160 


000760 





032003 


1 


5 


00 


03 


1161 


000761 





062005 


3 


1 


00 


05 


1162 


000762 





106757 


4 


3 


0757 




1163 


000763 





103767 


4 


1 


1767 




1164 


000764 





022001 


1 


1 


00 


01 


1165 


00076S 





110767 


4 


4 


0767 




1166 


000766 





100763 


4 





0763 




1167 


000767 





045431 


2 


2 


3 01 


11 


1168 
















1169 
















1170 
















1171 


000770 





032066 


1 


5 


03 


06 


1172 


000771 





032047 


1 


5 


02 


07 



;WAIT FOR TRANSFER TO COMPLETE 
M0VMEM IQSEL,! 



; SELECT DATA PATH INTERFACE 



t THREE NESTED LOOPS ARE REQUIRED TO PROVIDE A TIMEOUT OF 3 SECS. THIS 
jTIMEOUT IS NEEDED FOR THE CASE OF READING VIRGIN TAPES. 

I THE READ TRANSFER IS CONSIDERED TO HAVE BEGUN WHEN THE BYTE COUNT CHANGES. 
; THE CODE BETWEEN STARRED LINES WAS ADDED FOR EDIT C3] 



LOOPOl 



loopm: 

LOOPIS 



WTLPJ 



K 1 HIT 

DAT! 


BCLO, AC1 


t GET Lull ORDER BIT5 Or Bi i E CUUNi 


LDBR 


too 


f SET uUTERWUaT yyOr vNI 


MOVB 


ft. A 

AC4 




r t\ t\ 


177 


» <5cwp if rtM^r tr ? nfi** /*fti#f* 

J SET mIDDwE liOOF CwT 


MOVB 


A /* Ik 

AC3 




LDBR 


177 


;5ET INNER LOOP CNT 


MOVB 


AC 2 




JMPI 


INTERUFT 


JCHECK ON IwT&KKUPTS 


DATI 


REG3 , ACO 


t READ FORMATTER B.ND FLAG 


Mil* 


ACQ, BR 


• If nu i? wn on A 
t"QVE TO 1K4 






, CT1V Til t nflD ff Mrt IMTUTr"!? cun 




RDUUN& 


f i>U&C> f Af UK IS UUNE. 


ffS R fit T 

DATI 


BCbU, BR 


PRtoKNT CUUnJ, 


OSB 


AC! 


yCOMPARs WITH INITIAL COUNT 


JMPZ 


,+2 


fJUMp IF COUNT HASN'T CHANGED 


JMP 


NOVIRG 


?JUMP OUT OF WAIT LOOP 


DECR 


AC2 


; DECR INNER LOOP CNT 


JMPZ 


.+2 


J JUMP IF COUNT IS ZERO 


JMP 


LOOPI 


;ELSE, STAY IN INNER LOOP 


DECR 


AC3 


;DECR MIDDLE LOOP CNT 


JMPZ 


.♦2 


jJUMP IF COUNT IS ZERO 


JMP 


LOOPM 


;ELSE, STAY IN MIDDLE LOOP 


DECR 


AC4 


;DECR OUTER LOOP CNT 


JMPZ 


.+2 


;JUMP IF COUNT IS ZERO 


JMP 


LO0P0 


;ELSE, STAY IN OUTER LOOP 


LDBR 


NRE.RT 


f SETUP READ TIMEOUT ERROR CODE 


MOVB 


ACO 




JMP 


RESET1 


# GO RESET DRIVE AND REPORT ERROR 




GOSUB 


GETFLG 


f C53 GO RESTORE FLAGS INTO AC4 


JMPI 


INTERUPT 


$ CHECK ON INTERRUPTS 


DATI 


RE63,AC0 


;READ FORMATTER END FLAG 


SHL 


ACO, BR 


;M0VE TO BR 4 


JMPB4 


WTLP 


jWAIT FOR IT TO GO TO ZERO 


JMPI 


INTERUPT 


JCHECK OM INTERRUPTS 


DATI 


REG 1 f SR 


; READ MASTER REQUEST 


JMPB7 


,+2 


fSKIP IF LAST WORD HAS BEEN SENT 


JMP 


.-3 


f NOT YET, KEEP WAITING 


MOVMEM 


REG1 , I 


t CLEAR HIGH SPEED IN DATA PATH 


IE REMAINING BYTE COUNT 




DATI 


BCLO,AC3 


? READ THE CONTENTS OF 


DATI 


BCHQ,AC2 


? THE BYTE COUNTER 



DXMCA 
DXMCA 
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A A ** "% 

1173 


000772 





103137 


4 


4 
1 


A A mm 

1137 






JMPI 


RDCHK 


4 4 T A 

1174 






















m m mm mm 

1 175 
















?GET STATUS FROM DEVICE 


m 4 AT 

1176 






















1177 


A A 1 1 *!3l 

00077 J 


A 




04777 1 


2 


3 


3 17 


4 4 

1 1 




M0VME.W 


105EL, I 


4 A t\ 

1178 


i\ f\ f% mm *m A 

000774 





4 4 ** 0% A A 

117211 


4 

4 


turn 
1 


1211 






JMPSUB 


WAITST 


1179 


f\ A f\ *1 "f BT 

000775 


A 




4 t\ A? At f% 

103662 


4 


A 
1 


1662 






JMPI 


EST PEC 


4 4 O A 

i ibo 


AAAl*l£ 

0007 76 





115160 


4 


it 

6 


4 4 f A 

1 160 






JMpZ 


RDESEC 


1181 






















4 4 O PS 

1182 
















jCHECK 


FOR DATA 


PARITY ERRORS 


4 4 

1183 






















A A t\ M 

1184 


000777 





047771 


2 


3 


3 17 


11 




MOVMEM 


IOSEli.1 


1185 


001000 





032007 


1 


5 


00 


07 




DATI 


MPD82# ACQ 


A A £} £' 

1186 


001001 





A 4i a #\ A r? 

062005 


3 


4 
1 


00 


05 






AGO, BR 


1187 


001002 





107147 


4 


3 


1147 






*JMPB4 


RDPE 


1188 






















4 4 IS f% 

1189 
















; CHECK 


- TT 12* 4* T* W IS* 
If O 


OF RECORD IS SAME 


1 190 






















4 A i\ 4 

1191 


001003 


A 




060067 


3 


a 




03 


07 




DEC 


AC3 


1192 







4 4 C A A £ 


4 


6 


4 A A £ 

1006 






JMPZ 


•+2 


1193 


001005 





101046 


4 





1046 






JMP 


SIZERR 


1194 


001006 





060047 


3 





02 


07 




DEC 


AC2 


1195 


001007 





115011 


4 


6 


1011 






JMPZ 


.+2 


1196 


001010 





101046 


4 





1046 






JMP 


S I ZERR 


1197 























jCHECK INTERRUPTS FOR PARITY ERRORS 



; SELECT CHANNEL BUS INTERFACE 

J GET THE DEVICE STATUS 

JCHECK IF A STATUS BYTE PARITY ERROR 

fJUMP IF AN ENDING STATUS ERROR 



/SELECT MASSBUS INTERFACE 

f READ DATA BUFFER PARITY ERROR BIT 

| MOVE TO BR BIT 4 

»JUMp IF DATA BUFFER PARITY ERROR 



AS EXPECTED 



; CHECK IF ZERO 
;SKIP IF SO 

jSIZE OF RECORD NOT AS EXPECTED 
;CHECK REST OF COUNT 
| FOR ZERO 

;SIZE OF RECORD NOT AS EXPECTED 
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i 1 98 














;SEMD AN E8l> ANC 


l CHECK If DONE 


1199 




















1 900 

* 4 V V 


001011 

V v x V X X 





045431 


2 


2 


3 01 11 

«** V X * X 






MPSCR1 ,1 


1001 

Jl 4 v * 


001019 

V v X V X 4 





000000 

V Vff V v V V/ 








000 

V V V V 




MOP 




1909 


001013 

V v X V X ** 




V 


000000 

V v v V " v 








000 

v v w v 




NOP 




1903 


001014 

V -J X V X " 





101015 


4 


o 


1015 




W 


. + 1 


1904 


001015 

V V X V X 


o 


022000 


1 


1 


00 GO 

V V V V 




DATI 


MPSCRG,8R 


190S 

X 4 V v» 


001016 
vv x v x v 





105043 


4 


2 


1043 




JMPBO 


RAGAIN 


1906 

A ^ v v» 




















1907 














• FftiD OF 


READ COMMAND EXECUflQN 


1 908 

X 4 V 




















1909 


001017 

vw X w x / 





1 1706S 

X X f V W *»J 


4 


7 


1065 




%J rl tr fi# %J ** 


f \ wr 4wA« 


1910 

X 4> * V 


001020 

v v X V 4 





00201 1 





1 

** 


Oil 

V V X X 


Ar tv cu w t/ # 




1*1 O 


1911 
X 4 * * 


001021 

V V x v *+ * 





066371 

V W «7 r X 


3 


3 


17 11 

V At XX 




I*1V 1 P 




1919 


001 099 

v v x v 4 *» 





069030 

v w 4 v V 


3 


X 


01 10 

V V X X " 




MflV 


&ri -ftft 


1913 


001023 

VV X V 4 %r 





064231 


3 


2 


11 11 

V XX XX 






£p X X X £* 


1914 

AAA" 


001024 

V* V X v X» * 




V 


062110 


3 


1 

X 


04 10 




MOV 


AC4.BR 


1 91 *s 


001 09** 

v v X v 4 




V 


1 4000 


n 

v 


6 


000 

V V v v 




RHP 




1916 

X 4 X v? 


001 096 

V v X v 4 w 


A 

V 


1 0*5040 


4 


2 

4 


1040 

X V V 




JMPBO 


FRCSNS 


1917 

X 4 * 1 


001 097 

V v X V 4 f 





117934 

XX / 4 *J TP 


4 


7 


1234 

X 4 -J 




JMPSUB 


DSELCT 


X 4 * ~ 


001 010 

V* v X v 4*1 w 





00901 1 

v v 4 V X X 




V 


1 

X 


Oil 

u V X X 


PinnAr jp\ # 


LDBR 


MB 


1919 


001031 

V V X V «? X 





066371 


3 


3 


17 11 




MOVB 


lOSEti 


1 990 


001039 

V V A U J A 





002000 





1 


000 




LDBR 





1921 

X 4 *♦ * 


001033 





064371 


3 


2 


17 11 




MOVB 


FLAGS 


1222 


001034 


o 


103767 


4 


t 


1767 




JMPI 


INTERUPT 


1223 


001035 





002002 





1 


002 




liDBR 


CLRGO 


1924 


001036 

V V # V w 





064031 

V V* tB V *# 


3 


2 


01 11 




MOVB 


MPSCR1 


1223 


001037 





100026 

* V V V *t» 


4 





0026 




jMp 


IDLE 


1 226 

* jr* *» w 




















1 997 

X 4 4 f 


001040 





1 17734 

X X f f 4 «* TP 


4 


7 


1734 


ST 15 r* C M C t 


JMPSUB 


LOGREG 


199 8 

X 4 4 « 


001041 

v v x v *f x 





1 17602 

XX / vv* 


4 


7 


1602 

X w *» 




JMPSUB 


CSENSE 


1 990 
1/*? 


001049 





101030 

X V X V 1* V 


4 

** 





10 30 

X V V 




JMP 


NRMXFR 


1 9*310 

x 4 a v 




















19 31 
X 4 v 1 














/REPEAT 


THE READ AGAIN 


1232 




















1233 


001043 





046371 


2 


3 


17 it 


RAGAINi 


MOVMEM 


IOSEL 


1234 


001044 





117253 


4 


7 


1253 




JMPSUB 


CHAIN 


1235 


001045 





100677 


4 





0677 




JMp 


S^DRD 


1236 
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;SEND AN EBL TO RH20 
J STALL 

f GIVE RUN TIME TO FALL 
J READ DONE BIT 

,'JUMP IF RON IS STILL ASSERTED 



I REPORT THE SIZE OF RECORD READ 
t SELECT MASSBUS INTERFACE 

J GET ENDING STATUS 

J PUT IN STATUS BYTE REGISTER 

f GET FLAGS 

f'SHXFT FSENSE TO 8R0 

;JUMP IF SET 

; DESELECT FROM DRVICE 

I SELECT MASSBUS INTERFACE 

f CLEAR THE FLAGS 

; CHECK ON INTERRUPTS 
f CLEAR GO BIT 



;L0G THE REGISTERS 

;READ THE SENSE BYTES WITH A CHAINED COMMAND 



; SELECT CHANNEL INTERFACE 

; ACCEPT THE STATUS AND INDICATE CHAINING 

? PERFORM ANOTHER READ OPERATION 
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1237 ;A RECORD WAS READ THAT WAS A DIFFERENT SIZE THAN EXPECTED 

1238 



1239 


001046 





1 17734 


4 


7 


1734 


SIZERR: JMPSUB 


LOGREG 


?L0G THE REGISTERS 


AX fKfc Jk f\ 

1240 


001047 





117063 


A 

4 


7 


1063 


JMpSUB 


RPTSZ 


J REPORT SIZE OF RECORD READ 


1241 


A A 4 A £ A 

001050 





A A 4 4 A 41 

001 1 46 


A 






2 146 


LDMAR 


DPRO 


7 SELECT SAVED CONTENTS OF REG0 


1242 


001051 





g\ A fHk Jr\ A A 

042011 


2 


1 


00 11 


MOVMEM 


IS R 


?C0P¥ BC OVERFLOW FLAG TO BR 


1243 


001052 





014000 





6 


000 


SHR 




jSHIFT TO BIT 


1 1 A A 




A 

V 


A 4 A A A A 


A 





A AAA 


e tin 




1245 


001054 





105057 


4 


2 


1057 


JMPBO 


.+3 


jJUMP IF SET 


1246 


001055 





002002 





1 


002 


tiDBR 


SHREC. 


J GET SHORT RECORD ERROR CODE 


1247 


001056 





101060 


4 





1060 


JMP 


.♦2 




1248 


001057 





002003 





1 


003 


LDBR 


LGREC, 


f GET LONG RECORD ERROR CODE 


1249 


001060 





064051 


3 


2 


02 11 


MOVB 


MPECR 


fPUT INTO ERROR CODE REGISTER 


1250 


001061 





117602 


4 


7 


1602 


JMPS0B 


CSENSE 


f READ THE SENSE BYTES 


1251 


001062 





101666 


4 





1666 


JMP 


RPTERR 


; REPORT THE ERROR 



1252 



DXMCA 
DXMCA 



- DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 



MACRO %53B(1155) 1SS46 !5-F«b-82 Page 34 



MAC 



23-Sep-81 15*20 



DATA TRANSFER PARITY ERROR REPORTERS 



1253 

A 4b w 














SUBTIL 


DATA TRANSFER PARITY ERROR 


REPORTERS 


i 254 

A 4b mf 














f REPORT 


SIZE OF 


DATA RECORD READ 




1 

A * v v 






















1 2*%7 


1 ft 3 





00201 1 

V v A V * A 




1 

A 


011 

vr V A A 


R * A 464 • 


LDBR 


MB 


tSELECT MASSBUS INTERFACE 

m •■ F mm ifm mm ^m* «r * f mm ^m mm mm *m* *• ■ ^ W» » % w * ^m sw» 




HA 1 





06ft 37 1 


3 


3 


17 11 
V A * a A 




MOVB 


IOSEL 




1 2S9 


001 065 

V V A V w m* 




V 


062030 

V v 4 v J v 


3 


1 

A 


01 10 


RPTSIZl 

ITS * A V» *> 4U • 


MOV 


AC1,BR 


IGET ENDING STATUS 

m mm mm *m* *** ■# * w'r nmt ~ mw m< * ¥ w*- mw mm 


1260 

A A. W V 


001066 

V V ilk V V V# 





064231 


3 


2 


11 11 

V A A A A 




MOVB 


STBYTE 


|PUT IN STATUS BYTE REGISTER 


1261 


001067 





122002 

A I* * V V * 


5 


1 


00 02 




DATI 


CNTL,BR 


; READ BYTE COUNT INTO BR 


1262 


001070 





062076 

V w it* \f W \if 


3 


1 


03 16 




TSB 


AC3,BR 


^SUBTRACT FROM BYTE COUNTER IN DATA PATH 


A 4b W «? 


001 07 1 

v v A v # A 


ft 


066051 


3 


3 


02 1 1 

V V 4C. A A 




MOVB 


CNTL 


fPUT BACK INTO MASSBUS" INTERFACE 


1264 


001072 





122003 


5 


1 


00 03 




DATI 


CNTH,BR 


7 GET HIGH BYTE OF COUNT 


1265 


001073 





062042 


3 


1 


02 02 




OSBC 


AC2 r BR 


| COMPLETE THE SUBTRACTION 


1 266 

* * WW 


001074 





066071 


3 

•J 


3 


03 11 

V Sf mw A A 




MOVB 


CNTH 


t STORE THE REST 

*M F 4p mm m » *«f ale 9 mm * * mm* mm w* 


1267 

A £, V t 


001075 





016000 

V * VV vw 





7 


000 

V/ v VV 




RETURN 






1268 

A m* w w 






















1269 

A 4b 














tWRIfE 


DATA PARITY ERROR REPORTERS 




1270 
1271 


001076 

v V * V f w 





117767 

A A f r V f 


4 


7 


1767 


WRTCHKs 


JMPSUB 


INTERUPT 


f CHECK IF A FATAl* INTERRUPT 


1272 

* 4* » 4» 


001077 





117734 


4 


7 


1734 




JMPSUB 


LOGREG 


•liOG THE REGISTERS 


1273 


001 100 

W A A V V 





117724 

A A # f 4b ** 


4 


7 


1724 

A f 4fe Tf 




JMPSUB 


CLRPE 


f CLEAR THE PARITY ERROR 


1 274 


001101 

V V A A V A 





117215 

A A- r 4b A «w» 


4 


7 


1215 

A 4b A 




JMPSUB 


CHKSTS 


f CHECK ENDING STATUS 


1275 


001102 





103643 


4 


1 


1643 




JMPI 


ESTPE 


I CHECK IF A STATUS BYTE PARITY ERROR 


1 276 


001103 

V v A A v 





1 15625 

A A Vic V 


4 


6 


1625 




JMPZ 


ESTERS 


1 JUMP IF A STATUS ERROR 


1 277 

A 4b * f 


001104 

V v A AW™ 




V 


002011 

w v 4, V * A 





1 

A 


Oil 

V V A A 




l»DBR 


MB 


fSEIiECT MASSBUS INTERFACE 


1278 


001105 





066371 


3 


3 


17 11 




MOVB 


IOSEL 




1279 


001106 

V V A A V W 





062030 


3 


1 


01 10 

\r \f A A v 


XFRCHK s 


MOV 


AC1 ,6R 


jGET ENDING STATUS BYTE 


1280 

* * w V 


001107 

V « # * v r 





064231 


3 


2 

4b 


11 11 

V A A A A 




MOVB 


STBYTE 


f PRESENT IT IN ITS REGISTER 


1281 

* 4b' w <i> 


001110 





117724 

A A ' ' A* * 


4 


7 


1724 




JMPSUB 


CLRPE 


fCliEAR THE PARITY ERRORS 


1282 


001111 





117602 


4 


7 


1602 




JMPSUB 


CSENSE 


J READ THE SENSE BYTES 


1283 


001112 





002011 





1 


Oil 




LDBR 


MB 


; SELECT THE MASSBUS INTERFACE 


A 4& W ** 


001 113 





066)71 

VWV J f A 




3 


17 11 

V A f A A 




MOVB 


IOSEL 




logs 


001 114 

W A A At *f 





002005 





1 
A 


005 




LDBR 


REM, DP 


J GET ERROR CODE 


1286 


001 1 15 

V " A A A ifcr 





064051 


3 


2 


02 11 

V V 4b A A 




MOVB 


MPECR 


f LOAD ERROR CODE REGISTER 


1287 
1 288 


001 116 

vr \jr a A A V 





101666 

A V A W ■ w %/ 


4 





1666 




JMp 


RPTERR 


1 REPORT THE ERROR 


1289 

A A» W 7 


0011 17 

V \r A A A r 





117734 

A A f F wr Tf 


4 

IS 


7 


1734 


WRTPE 2 


JMPSUB 


LOGREG 


fLOG THE REGISTERS 


1290 


001 120 





062030 


3 


1 


01 10 


XFRPE J 


MOV 


AC! t BR 


|GET ENDING STATUS BYTE 


1291 

A 4b 3* A 


001 121 

V V A A 4b A 





064231 

V V T 4fc A 


3 


2 


11 11 

A A A A 




MOVB 


STBYTE 


1 PRESENT IT IN ITS REGISTER 


1292 

A 4b «r 4b 


001122 

V V A A 4b 4b 





117602 


4 


7 


1602 




JMPSUB 


CSENSE 


•READ THE SENSE BYTES 


1293 

Jr 4. 7 J 


001121 

V \r A A 4b w 





002011 





1 

■ A 


011 

x ' v A A 




LDBR 


MB 


I SELECT MASSBUS INTERFACE 


1 294 


001124 

V W A A 4b 





066371 


3 


3 


17 11 

V# A f A A 




MOVB 


IOSEL 




1295 


001 125 




V 


002000 





1 

A 


000 




LDBR 





fCLEAR OCCUPIED 

if ftp •*»*• « *^ w 1(# W » -4b mm mm 


1296 

Jr 4% *^ W 


001126 

V V A A 4b V 




V 


064031 


3 


2 


0111 

■*f V A A A. 




MOVB 


MP5CR1 




1297 


001127 

V V A A A* f 





064171 


3 


2 


17 11 

V A * A A 




MOVB 


FLAGS 


•CLEAR THE FLAG REGISTER 


1 298 


001 130 





002001 

V V * V V * 




V 


1 

A 


001 




LDBR 


EBL 


tSEND AN EBL 


1299 


001131 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




1 300 


001132 

V V A Ar *» 





022000 

V ^b 4b V V W 


1 

A 


1 

A 


00 00 




DATI 


MPftCRO,BR 


tPEAD RUN BIT 


1301 


001133 





105132 


4 


2 


1132 




JMPBO 


.-1 


|WAIT FOR IT TO CLEAR 


1302 


001134 





002202 





1 


202 




LDBR 


ATA+CLRGO 


J SET ATA AND CLEAR GO 


1303 


001135 





064031 


3 


2 


01 it 




MOVB 


MPSCR1 




1304 


001136 





100026 


4 





0026 




JMP 


IDLE 


J GO IDLE 


1305 























DXMCA • 
DXMCA 
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1306 
1307 



1 ^OR 


on i in 





1 1 




/ 


4 767 


1 ^09 


fin 1 1 AO 


o 


117 7 1 A 




/ 


4 / 34 


1310 


001141 





117724 

A A f / & ** 


4 

** 


7 


1 774 


1511 


001 1 42 





1 17 711 

4 4 / /A i 


4 

** 


7 


17 11 

4 4 4 4 


1312 


001 143 

V V 4 4 "t 





1 3 ft ft 7 
A v »» O " 6 


A. 

TP 


i 

4 


1 &A3 

4 D04 


1313 


001144 


o 


115160 

* * w A w V 


4 


6 


1 1 ftO 
A AwV 


1 11 A 


0011 4*5 


a 


1 1 

A A / \) v 4 


A 

TP 


/ 


1 a & i 


1315 


00114ft 


a 

V/ 


101 10ft 
4 V 4 Awo 


A 

** 


A 

V 


1 1 A A 

4 4 v O 


1316 














4 3 4 # 


001 1 47 

V v 4 4 f 


A 

V 


4 4 1 1 3% 


** 


/ 


1 *T 1 A 
4 / 3% 


1318 


001 1 *50 
Vv A A 3V 


A 
V 


1 1 70ft* 
4 4 /Uw3 


4 


7 


4 vf>D 


1319 


001151 





101120 


4 





1 1 70 

4 4 4V 


1370 














1321 


001 1 *i7 



y 


1 1 7 7 1 A 


A 


7 


1 1 1 A 
4 f J% 


1322 


001153 





1 17165 


4 


7 


1 1 65 

A Awv 


1323 


1 1 5 4 





Au J.OA? 


A 

ft 


A 

V 


1 & 1 KL 

aoaD 


1 324 














1325 


001155 


o 


117734 


4 


7 


17 34 




0011 **6 


A 

V 


1 1 7 * ft tc 

AA no3 


A 


/ 


1 1 Aft 
4 4 OD 


1327 


0011 57 





101 ft2ft 


4 

** 


O 


1 ft 7ft 


1328 














1329 


001 160 





117734 


4 


7 

f 


1714 
A f 


1330 


001 161 


o 


00201 1 





4 


O 011 

v v 4 4 


1331 


001162 





066371 


3 


3 


17 11 
V 4 t 4 4 


1332 


001163 




V 


1 17065 


4 


7 


4 AfttC 


1333 


001164 





101626 


4 


o 


1626 


1334 














1335 


001165 





002011 





1 


Oil 


1336 


001166 





066371 


3 


3 


17 11 


1337 


001167 





002000 





1 


000 


1338 


001170 





066051 


3 


3 


02 11 


1339 


001171 





066071 


3 


3 


03 11 


1340 


001172 





016000 





7 


000 



1341 



?READ PARITY ERROR REPORTERS 



rdchk: 


JMPSUB 


IMTERUPT 






LOGREG 






CyRPE 






*,s » y IP fin 

WAIT5T 






ESTPEC 






RDESEC 




1 r% <* 1 1 Q 

J"PSUB 


IA Cl W fV 

RPTSZ 




1 MO 




RDPEj 


JMPSUB 


LOGREG 




t w rt e ti tx 


RPTSIZ 




tun 


AT tire* 


RDISES 


JMPSUB 


LOGREG 






viiRav 




JMP 


ISTERD 






f n #"» d i? /• 




JMPSUB 


CLRBC 




JMP 


BSf ERD 


RDESEC t 




t r% f* fH EH f« 




t T\ti ti 


mu 




mH u a 
mU V d 






ttincttQ 


IS O fit <S 'T ff 

RPT5IZ 




JMP 


ESTERD 


CLR8CS 


LDBR 


MB 




MQVB 


I0SEL 




LDBR 







M0VB 


cnth 




M0V8 


CNTH 




RETURN 





; CHECK IF A FATAL INTERRUPT 

;L0G THE REGISTERS 

;CI*EAR THE PARITY ERROR 

; WAIT FOR ENDING STATUS FROM DRIVE 

;CHECK IF A STATUS BYTE PARITY ERROR 

UUMP IF A STATUS ERROR 

? REPORT SIZE OF RECORD READ 



I LOG THE REGISTERS 

I REPORT SIZE OF RECORD READ 



I LOG THE REGISTERS 

; CLEAR THE BYTE COUNTER 



;L0G THE REGISTERS 

J CLEAR THE BYTE COUNTER 



?L0G THE REGISTERS 

i SELECT MASSBUS INTERFACE 

J REPORT SIZE OF RECORD READ 



t SELECT MASSBUS INTERFACE 
I GET A ZERO 

; CLEAR THE BYTE COUNT REGISTER 

t SO HOST KNOWS NO BYTES WERE READ 
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1342 
1343 
1344 
1345 
1346 
1347 



1348 


001 1 73 





11771? 


4 


7 


1712 




J, a •* 7 


001 174 




V 


012132 


1 

♦ 




OS 


1 9 

* ** 




001 1 7*5 


V 


0fi9070 




X 


01 

v V «9 


1 


1351 


001176 





072151 


3 


5 


06 


11 


1352 


001177 





117270 


4 


7 


1270 




1353 


001200 





103622 


4 


1 


1622 




1354 


001201 





115614 


4 


6 


1614 




1355 


001202 





117542 


4 


7 


1542 




1356 


001203 





002011 





1 


Oil 




1357 


001204 





066371 


3 


3 


17 


11 


1358 


001205 





062030 


3 


I 


01 


to 


1359 


001206 





064231 


3 


2 


11 


11 


1360 


001207 





117734 


4 


7 


1734 




1361 


001210 





100336 


4 





0336 





1362 



SU8TTL SENSE OPERATIONS 

jA SENSE COMMAND HAS BEEN ISSUED 
jREAD SENSE INFORMATION FROM DRIVE 
; AND STORE IN EXTENDED STATUS TABLE 

DOSNSt JMPSUB CLRSNS 

DATI DR,AC5 

MOV AC3,BR 

MOVB AC6 

JMPSUB SELECT 

JMPI ISTPE 

JMPZ ISTERR 

JMPSUB GETSNS 

LD8R MB 

MOVB IOSEL 

MOV AC1,BR 

MOVB 5T8YTE 

JMPSUB LOGREG 

JMP NORMDN 



;CLEAR SENSE BYTE AREA 
;READ DRIVE NUMBER 
J LOAD SENSE COMMAND BYTE 
| INTO AC6 

; SELECT DEVICE AND ISSUE COMMAND 
;CHECK IF A STATUS BYTE PARITY ERROR 
?JUMP IF INITIAL STATUS ERROR 
/COPY SENSE DATA TO TABLE 
J SELECT MASSBUS INTERFACE 

| GET ENDING STATUS BYTE 
>PUT IN STATUS BYTE REGISTER 
;LOG ALL THE REGISTERS 
f REPORT NORMAL ENDING STATUS 
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1363 
1364 
1365 
1366 
1367 
1366 
1369 



SUBTTL DEVICE STATUS ROUTINES 



; WAIT FOR STATUS FROM CONTROL UNIT 
/RETURN WITH STATUS IN AC1 

/ AMD Z SET IF ANY ERROR BIT IS IN STATUS 



1370 


001211 





103767 


4 


1 


1767 


WAITSTI 


JMPI 


INTERUPT 


| CHECK ON INTERRUPTS 


1371 


001212 





022004 


1 


1 


00 04 




DATI 


TAGINOf BR 


;READ THE TAG IN LINES 


1372 


001213 





105215 


4 


2 


1215 




JMPBQ 


.♦2 


;SKIP IF STATUS IN IS SET 


1373 


001214 





101211 


4 





1211 






♦ •3 


/NO, KEEP WAITING 


1374 


001215 





032027 


1 


5 


01 07 


chksts: 


DATI 


CBIL0,AC1 


;READ THE STATUS BYTE INTO AC1 


1375 


001216 





002014 





1 


014 




LDBR 


14 


/GET CHANNEL AMD DEVICE END BITS 


1376 


001217 





062033 


3 


1 


01 13 




LANDS 


AC1,BR 


/GET COPY OF THESE BITS 


1377 


001220 





060037 


3 





01 17 




OSB 


AC1 


; COMPARE REST OF BITS FOR ZEROS 


1378 


001221 





115223 


4 


6 


1223 




JMPZ 


•+2 


/SKIP IF Z IS SET 


1379 


001222 





016377 





7 


377 




RETURN 


• 1 


/NO, ERROR RETURN 


1380 


001223 





016000 





7 


000 




RETURN 




/NORMAL RETURN 



1381 
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1 1R7 
















OlMi WW 






















A a i 7 7 a 


A 

V 


O 7 1 K A 


A 
y 


4 

A 


A 1 *%6 

y j so 


» f*f*E*0*f» f 

AVv^r 1 i 


jyA/or\ 


1 i ft c% 





U 




1 


7 


A A7 1 1 






1 lft6 


on 1 776 


A 


1 01767 


4 

** 


A 


1 767 
A f v # 




U **» 4T A 


1 187 


v v A £+ t* f 




V 


077004 

v m» 4* v w 


1 

A 


1 

A. 


00 04 




DATI 




001 710 


A 

V 


10S726 

* V -xt g, 4» 


4 


2 
i& 


1776 






4* ^ V 7 


001711 





007157 





1 


1S2 






i ion 


001 717 



v 


0640S1 

V W *K V -J A 


1 


7 


O 07 11 

V A A 






1 1<H 


001711 





1 6000 

v A v v V v 





f 


000 

v V v v 




RETURN 


a -$y * 


















i 1 Q 1 
















A nc, «9 A 


A a 7tr 




















A A1 7"* 4 


A 

V 


0070 1 1 


O 


A 


A All 


n 55 is* r i r* *r t 


T HDD 




A A 1 O IK 




V 


A & 4% ? 7 1 
y ©0 J r A 


1 
3 




A 17 11 

v A / A A 








001 716 


A 


00 7 144 


A 

y 


A 


A 144 




r.DRP 


1 10ft 


001 717 


A 


64051 


1 


2 


7 11 

v y A A A 




nv VP 




O O 1 7 40 


V 


1 01767 


4 


A 


1 767 
A r v # 




M ™ ir * 


1 400 

A *f v v 


001 741 


A 


077004 

v# 4> it u v *t 


A 


1 

A 


A 00 04 
y y v v *t 






1 40 1 
A *t V 1 


OO 1 747 

U v A Z *f 4 



V 


1 0«S740 


4 

** 


7 


1 740 
A x ** U 




v pi f o y 


1 407 

A *f V <£ 


001743 





007144 





1 

A 


144 






A ** v & 


001744 
v v A * *§ *ff 





064051 

Vvtvyl 


1 


7 

** 


02 11 

V */ m* A A 






1 404 


001 74*5 





1 01767 


4 

"St 


i 

A 


1 767 

A f w f 




tINPT 


1 a fit; 

J, *$ v D 


01 7 4 A 


A 

u 


077 AA4 


4 

A 


1 

A 


A A A A 4 




yftl A 


1406 


001247 





111245 


4 


4 


1245 




JMPB7 


1407 


001250 





002040 





1 


040 




liDBR 


1408 


001251 





0640S1 


3 


2 


02 It 




M0VB 


1409 


001252 





016000 





7 


000 




RETURN 


1410 



















SRV0UT+HLDOUT"*-SEli0UT+TMREN+CIjK0UT+MTR0UT 
T0R0 

INTERUPT ?CHECK ON INTERRUPTS 

TAGINO , BR ; READ TAG IN LINES 

,»2 | WAIT FOR STATUS IN TO DROP 

HLDOUT+SEliOUT+CLKOUT+MTROUT JDROP SERVICE OUT 

T0R0 



I SEND SERVICE OUT 



CHN 
I OS EL 

SRVOUT+TMREN+CLKOUT+MTROUT 
TORO 

INTERUPT 
TAGINO, BR 
.-2 

TMREN+CLKOUT+MTROUT 
TORO 

INTERUPT 
TAGINO, BR 
.-2 

MTROUT 
TORO 



| SELECT CHANNEL INTERFACE 



?DR0P SELECT OUT AND SET SERVICE OUT 



;CHECK ON INTERRUPTS 
fREAD TAG IN LINES 
JWAIT FOR STATUS IN TO DROP 
/CLEAR SERVICE OUT 

ICHECK ON INTERRUPTS 
I READ TAG IN LINES 
JWAIT FOR OPL IN TO DROP 
jTURN OFF THE TIMER 
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1411 
1412 
1413 
1414 
1415 
1416 
1417 
1416 
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 



fACCEPT STATUS FROM DEVICE AMD INDICATE CHAINING 



A A 1 K 


(\ 

V 


A A O A A 


A 

V 


4 

1 


A 

W « V 


r*u A T M t f HOD 




A A 1 OK A 


A 

V 


A&A Hi 1 







A A 1 4 4 


MdtlR 
nUVD 




OA1 OR** 


V 


w V jfc •»> TE *T 


A 


1 

* 








AA1 


A 
W 






/ 


A AO 1 4 


ClUf 


T*flD A 


A A i 

vV J, 4*0 9 


A 


1 A"* 7 £7 

i V J f v 1 


** 


1 


4 1 A 7 


U ™ IT Jt 


X 1 * A & ^ *J " A j v n \# »\ Ulw iwiRtRnvrAi? 


A A 1 A A 


A 


A A A A 


X 


4 

X 


A A A A4 

VI VI v vUji 


yn J. 4. 




001261 





105257 


4 


2 


1257 


JMpBO 


.-2 y WAIT FOR SERVICE IN TO DROP 


001262 





002144 





1 


144 


LDBR 


TMREN-f CI*K0UT+MTR0UT f DROP SERVICE OUT 


001263 





064051 


3 


2 


02 11 


M0VB 


T0R0 


001264 





103767 


4 


1 


1767 


JMPI 


INTERUPT jCHECK ON INTERRUPTS 


001265 





022004 


1 


1 


00 04 


DAT! 


TAGINO, BR J READ TAG IN LINES 


001266 





111264 


4 


4 


1264 


JMP87 


,-2 ;WAIT FOR OPERATIONAL IN TO DROP 


001267 





016000 





7 


000 


RETURN 





DXMCA - DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 
DXMCA MAC 23-Sep-81 15:20 SELECT DEVICE 



MACRO %53B(1155) 15146 i5»F«b-82 Pag© 40 



X €/l5 
















SUBTTL 


SELECT 


DEVICE 




























1 4 JU 
















j SELECT 


DRIVE NUMBER IN ACS AND 




1 A 1 1 

x ^t3 A 
















; ISSUE 


COMMAND 


SITE FROM AC6 




1 AlO 
















j RETURN 


WITH STATUS BYTE IN AC1 




4 All 
















; UNLESS DRIVE 


IS NON-EXISTANT . 


IN WHICH CASE ABORT TO SELERR 


X T*3 ** 
















f ALSO USES ACO 






JL ** 3 3 
























1 AHA 




y 


A A 1 4 ftft 
y y x jl o o 


y 


A 

y 


2 166 


JUR* V X § 




|pl wJ» X w ™ 


fSAVE COMMAND 


\ All 


00 4 71 




y 


071 «*^0 


? 

3 


4 


3 06 


10 






AC6.MEM.I 


1 AND DRIVE NUMBER 


4 Alfi 

4 ** 3 o 


001070 

v v JL* / 4 





070130 

v t \i X 3 V 


1 
3 


4 


05 


10 




MOV 


ACS .MEM 


f IN MEMORY 


x ^ 


A A 4 Oil 





A A 4 A A 1 


A 


A 
V 


2 043 


SELCT2I 


LDMAR 


W C4|pili7d X 


f SELECT LIST IN MEMORY 


4 AAA 


A A 4 7 A 
v v JL 4* / «i 


A 

y 


A A 7 7 7 4 

y it t I /x 


o 


1 

3 


3 17 


11 




M0VMEM 


AWwwU f X 


t SELECT CHANNEL INTERFACE 


i A A 1 


001 07S 

v v JL / 3 


A 

y 


A & O 4 1 A 
y X Jv 


3 


4 

X 


05 


10 




nw if 


AC5.BR 


f(SET ORTVF NUMBER FROM AC§ 




A A 4 OTA 


A 

y 


A A A O 1 4 
V *l / 3 X 


1 

3 





It 


11 




nwy D 


BORliO 


• PUT AOOPEfi& flN ftllfi OUT LTNEK 
§ ru* MvyfiXii3w w*f www uux w 


i AA1 


AO 4 07 7 
v v JL £• t f 


A 

y 


AACA12I 

y %3*e x 


o 





3 02 


11 




pi w V ™ Ci ™ 


X w{\V f X 


tSFT Ar>OPF5»5S OUT 


1 AAA 


A A 4 1 A A 


A 

y 


AAKAC4 
Vl3t3A 








3 02 


11 




t ™ w y -f * & » * 




fSFT ftFLFCT OffT AND HOfiO OUT 

f OOl O&iU&VX Ww4 A (flu/ n%#XIL/ MW X 


X 


A A 4 1 A 1 


A 

u 


4 A 171% 7 
X V 3 I / 


A 


1 

X 


1767 




QELR FR • 

<J IV' 14 T\ C* 13 • 


w J™ Jr X 


TNT FfttlPT 


frRFCff ON TNTFRRUPT.^ 


1446 


001302 





022004 


1 


1 


00 


04 




L/'* X X 


TAGII^O -BR 


;READ TAG IN LINES 


1447 


001303 





111310 


4 


4 


1310 






JMP87 


SELCTD 


J JUMP IF SELECTED 




A A 4 1 A A 


A 

y 


1 0*i A00 
x v %> *»y /, 


A 
*l 


o 


1402 








ORVBSY 


tORTVF Tft ROSY 

# VIMly Xl3 U 13 * 


1 AAQ 


01 IftR 

V V A J V 3 


A 

y 


O 1 A A AO 

y x *t y y y 


A 

y 


6 


000 




13 ** A 




•SHIFT SEL IN TO BR 

f W X v * i3IS«X> 4. If Xw r\ 


4 a «in 


AA4 1AA 

V 1/ JL 3 v O 


A 

y 


1 o m 1 1 

JL v3 J J J} 


A 





1333 






JMPB0 


SELRRR 

V# W «■# tit f ^ S A 


ffSFT OUT IF NO ORTVF RESPONDED 


1 A** 1 
14S2 


001 107 





101 10 4 

X v X 3 V X 


4 

** 





1301 






y it 


SELRES 


ffNQ- WAIT FOR SFLECTION RESPONSE 


X ** 3 «> 

X •* 3 «J 


001110 

A J J, Vf 





04S451 








3 02 


11 






TORO . I 


:DR0P ADDRESS OUT 


1 A^A 
J, % 9 *t 


O A 4 11 1 
v v x 3 X x 





101767 


A 


4 

JL 


1767 






»1MPT 

u ~ if X 


x * ^ * w »*■ " *r * 


f CHECK ON INTERRUPTS 




001 110 

v v X 3 JL €> 




v 


00004 

V 4« *6 y v *£ 


4 

X 


4 

X 


00 


04 




HAT T 


TAGINO .BR 


t READ TAG IN LINES 

f *^|&if*t/ X ^ V 44J»*fij#»3 


1 4f>6 

X *f 3 w 


001111 

W X 3 X 3 





10711^ 


4 




1315 








• f 2 


•CHECK FOR ADR IN 




A A 4 1 4 A 


A 

y 


4 A 4 1 4 4 

X V X 3 X X 


A 


A 
y 


1311 






.!MD 


«»l 

f **3 


tNO WATT FOR IT 


4 AKU 


00 4 1 4 -K 


A 
y 


A*> A 7 4 

y ** 3 / x 








3 03 


11 






TORI * 1 

X ^*»> X § X 


tDROP SUPPRESS OUT 


4 A*%0 


A A 4 1 4 A 


A 

y 


A O O A A 7 

y / / v st / 


4 

X 


4 

X 


00 


07 




rv A1FT 

U r% x X 


f»f4TfVO - RP 


• P F & D RIK IN T*TNFI% 


4 A&H 


A A 4 14 7 

y v ui/ 


A 

y 


4 A 1 A 4 7 
X v 3P X f 


A 


4 

X 


1617 






y ™ * x 


#vw t\ IT c* 


•CFT OUT TF ADR P&RTTY ERROR 


4 Aft 4 


AA4 100 


A 

y 


A O 4 17 

y c?y X 3 f 


1 
3 





05 


17 




0SB 


ACS 


tCOMPARE MITH ADDRESS SENT 


4 A£9 


A A 4 101 


A 

y 


4 4 «s 10 1 

X X 3 3 & 3 


A 


6 


1323 






JMPZ 


A + o 


•SKTP TF A MATCH 


4 Afcl 


A01 100 




V 


101 147 
X v X 3*i / 


4 

** 





1347 






JMp 


NOMTCH 


tNO. ERROR 


4 AAA 


A A 4 1 1 


A 

y 


A ft O 4 *f A 


•a 

3 


1 

X 


06 


10 




MOV 


AC6 , BR 


iftFT COMMiND 


4*|D3 


001 104 



y 


064031 

v sf *f & 3 X 


1 





11 


11 




M0VB 


BORLO 


•SEND TO DEVICE 




001 10*5 

VVA J*3 





04^4^1 

V TP 3 *f 3 X 








3 02 


11 




M0VMEM 


TORO # I 


•SEND COMMAND OUT TO DRIVE 


1 467 

4 *£ v r 


001 10& 





1 01767 

X V 3 f w / 


4 


1 

X 


1767 






JMPI 


INTERUPT 


•CHECK ON INTERRUPTS 


1468 


001327 





022004 


l 


1 


00 


04 




D AT I 


TAGIN0,BR 


JREAD TAG IN fclHES 


1469 


001330 





107326 


4 


3 


1326 






JMPB4 


• -2 


?WAIT FOR ADR IN TO DROP 


1470 


001331 





0454S1 


2 


2 


3 02 


11 




MOVMEM 


TORO , I 


1 DROP COMMAND OUT 


1471 


001332 





101211 


4 





1211 






JW 


WAITST 


J WAIT FOR STATUS 


1472 
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1473 ;DRIVE DOES NOT EXIST, ABORT COMMAND 

1474 



1475 


001333 





117734 


4 


7 


1734 


selerr: 


JMPSUB 


LOGREG 


lLOG THE RPCTSTFB^ 


1476 


001334 





002200 





1 


200 




LDBR 


OPLOUT 


{DROP SUPPRESS OUT 


1477 


001335 





064071 


3 


2 


03 11 




MOVB 


TORI 


1478 


001336 





002000 





1 


000 




LDBR 


o 


iDRQP ADDRESS OUT Aitfr. SfTLrCT HUT 


1479 


001337 





064051 


3 


2 


02 11 




MOVB 


TORO 


1 Aft A 


A A 1 1 Aft 

v U X S % U 


u 




U 


1 


Oil 




LDBR 


MB 


; SELECT MASSBUS INTERFACE 


1481 


001341 





066371 


3 


3 


17 11 




MOVB 


IOSEL 




4 JAM 

1482 


001342 





002004 





1 


004 




LDBR 


DSE. 


f GET ERROR CODE 


1483 


001343 





064051 


3 


2 


02 11 




MOVB 


MPECR 


fLOAD INTO REGISTER 


1484 


001344 





002000 





1 


000 




LDBR 





? CLEAR STATUS RYTF 


1485 


001345 





064231 


3 


2 


11 11 




MOVB 


STBYTE 


J REGISTER 


4 a o a 
1487 


QG1346 





101666 


4 





1666 




JMP 


RPTERR 


^REPORT THE ERROR 


1488 
1489 














j ADDRESS RECEIVED WAS NOT ADDRESS 


SENT 


1490 


001347 





002006 





1 


006 


NOMTCHt 


LDBR 


RE « AM 


J GET ERROR NUMBER 


1491 


001350 





072011 


3 


5 


00 11 


RESET I 


MOVB 


ACO 


;SAVE ERROR NUMBER IN ACO 


1492 
1493 


001351 





117734 


4 


7 


1734 


RESET! S 


JMPSUB 


LOGREG 


• LOG THF RP!KTSTPRR 


1494 














J EDIT £3] NEEDED AS PART OF READ 


TIMEOUT FIX 


1495 


001352 





002033 





I 


033 




LDBR 


CHN 


I £33 SETUP IOSEL RES TO ACCESS CHANNEL 


1496 
1497 


001353 





066371 


3 


3 


17 11 




MOVB 


IOSEL 


• f 1 1 KU& TfiTERfPACI»* 


1498 


001354 





002240 





1 


240 




LDBR 


SUPOOT+OPLOUT 


iSEf SUPPRESS OUT 


1499 


001355 





064071 


3 


2 


03 11 




MOVB 


TORI 


1500 


001356 





002040 





1 


040 




LDBR 


SUPOUT 


# CLEAR OPERATIONAL OUT TO PERFORM 


1501 


001357 





064071 


3 


2 


03 11 




MOVB 


TORI 


; A SELECTIVE RESET 


1502 


001360 





002040 





I 


040 




LDBR 


MTROOT 


fDROP ALL OTHFR TA<2 LTfclFS 


1503 


001361 





064051 


3 


2 


02 11 




MOVB 


TORO 


1504 


001362 





022004 


1 


1 


00 04 




DATI 


TAGXNO,BR 


i READ TAG IM LIMES 


1505 


001363 





111362 


4 


4 


1362 




JMPB7 


.-1 


iWAIT FOR QPL Iff TO DROP 


1506 


001364 





002040 





1 


040 




LDBR 


MTROUT 


iTURU OFF THE TIMER 


1507 


001365 





064051 


3 


2 


02 11 




MOVB 


TORO 




1508 


001366 





002240 





1 


240 




LDBR 


OPLOUT-fSUPOUT 


t SET OPERATIONAL OUT AfiAIM 


1509 


001367 





064071 


3 


2 


03 11 




MOVB 


TORI 


1510 


001370 





002200 





1 


200 




LDBR 


OPLOOT 


fDROP SUPPRESS OUT 


1511 


001371 





064071 


3 


2 


03 11 




MOVB 


TORI 




1512 


001372 





117724 


4 


7 


1724 




JMPSUB 


CLRPE 


/CLEAR PARITY ERRORS 


1513 


001373 





002011 





1 


Oil 




LDBR 


US 


J SELECT MASSBUS INTERFACE 


1514 


001374 





066371 


3 


3 


17 11 




MOVB 


IOSEL 




1515 


001375 





062010 


3 


1 


00 10 




MOV 


ACQ , BR 


f GET ERROR NUMBER 


1516 


001376 





064051 


3 


2 


02 11 




MOVB 


MPECR 


;L0AD ERROR CODE REGISTER 


1517 


001377 





002000 





1 


000 




LDBR 





?CLEAR STATUS REGISTER, 


1518 


001400 





064231 


3 


2 


11 11 




MOVB 


STBYTE 


$ NONE RECEIVED 


1519 


001401 





101666 


4 





1666 




JMP 


RPTERR 


;REP0R1 THE ERROR AND GO IDLE 



1520 



DXMCA • DX20-V1Q0 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 
DXMCA MAC 23-Sep-81 15:20 SHORT BUSY HANDLER 



1521 
1522 



4 C O "3 

1523 


A A 4 A A 1 

Q014M4 




A A A A A 


A 


* 
1 


A AAA 


4 OA 

JL044 


U U 1 4 U J 


A 

V 




J 


I 


A AO 4 4 


4 ZLOK 


AA4 AAA 

v u x u *t 


A 


A AOO A A 


A 

V 


1 

A 


A OA A 




A A 4 A A £ 
V V 1 4 U D 


A 


A ft, A A *? 4 






A A'l 4 4 


ID* / 


A A 1 AAA 


A 

V 


1 A 1*? A*7 
1 U 4 / / 


A 


4 

1 


4 O &*» 


1 3 a o 


AA4 AA*7 


A 

V 


AOO AA* 

V / / U V D 


4 
A 


A 


A A A A K 


4 COQ 


A A 1 A 1 ft 


A 

V 


A i A A A A 

V A % U U U 


A 




A AAA 


1530 


001411 





107413 


4 


3 


1413 


1531 


001412 





101406 


4 





1406 


1532 


001413 





117420 


4 


7 


1420 


1533 


001414 





001166 








2 166 


1534 


001415 





053551 


2 


5 


3 06 11 


1535 


001416 





052131 


2 


5 


05 11 


1536 


001417 





101273 


4 





1273 



1537 



SUBTTL SHORT BUSY HANDLER 



r\D\/DCV» T hDD 


m 1 nUU it 


InUVo 


it* no a 

1 UKv 






Mil Vft 


A US* 1 


TMDT 


A £M A &r\U r A 


U J* 1 41 


A Avar X 1 f 'Oct 






JMPB4 


.+2 






JMPSUB 


DEVREQ 


LOMAR 


LSTCMD 


M0VMEM 


AC6,I 


MOVMEM 


AC5 


JMP 


SELCT2 
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>CLEAR TAG OUT LINES 

;DH0P SELECT OUT AND ADDRESS OUT 

fCHECK ON INTERRUPTS 

;READ TAG IN LINES 

;SHIFT RE0 IN TO BR4 

| SKIP IF SET 

;N0, WAIT FOR IT 

;SERVICE THE DEVICE REQUEST 

;GET LAST COMMAND ATTEMPTED 

?C0PY COMMAND INTO AC6 

;C0PY DRIVE ADDRESS INTO ACS 

;N0W SELECT AGAIN 
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1538 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1548 
1549 

1550 001420 002156 1 156 

1551 001421 064051 3 2 02 11 

1552 001422 103767 4 1 1767 

1553 001423 022004 1 1 00 04 

1554 001424 111443 4 4 1443 

1555 001425 014000 6 000 

1556 001426 105502 4 2 1502 

1557 001427 022005 1 1 00 05 

1558 001430 014000 6 000 

1559 001431 107422 4 3 1422 

1560 001432 000000 000 

1561 001433 000000 000 

1562 001434 000000 000 

1563 001435 000000 000 

1564 001436 022004 1 1 00 04 

1565 001437 111443 4 4 1443 

1566 001440 002040 1 040 

1567 001441 064051 3 2 02 11 

1568 001442 016000 7 000 
1569 

1570 
1571 

1572 001443 103767 4 1 1767 

1573 001444 022004 1 1 00 04 

1574 001445 107447 4 3 1447 

1575 001446 101443 4 1443 

1576 001447 001171 2 171 

1577 001450 030007 I 4 00 07 

1578 001451 002157 10 157 

1579 001452 064051 3 2 02 11 

1580 001453 103767 4 1 1767 

1581 001454 022004 1 1 00 04 

1582 001455 107453 4 3 1453 

1583 001456 002156 1 156 

1584 001457 064051 3 2 02 11 

1585 001460 103767 4 1 1767 

1586 001461 022004 1 1 00 04 

1587 001462 105464 4 2 1464 

1588 001463 101460 4 1460 

1589 001464 001170 2 170 

1590 001465 030007 1 4 00 07 

1591 001466 042011 2 1 00 11 

1592 001467 014000 6 000 



SUBTTL GET INTERRUPT STATUS FROM DEVICE 

; ENTER WHEN REQUEST IN IS ASSERTED BY A DRIVE 
? SELECT THE DRIVE AND LOOK AT STATUS BYTE 

|IF DEVICE END IS SET WITHOUT UNIT CHECK AND ASYNC STATUS REGISTER IS ZERO: 
I ACCEPT THE STATUS AND PLACE IN ASYNC STATUS REGISTER 

I IF DEVICE END IS SET WITHOUT UNIT CHECK AND ASYNC STATUS REGISTER IS NOT ZERO: 
> STACK THE STATUS 
;IF UNIT CHECK IS SET: 

t ACCEPT THE STATUS AND READ THE DRIVE'S SENSE BYTES 



devreq: 



waireo: 



liDBR 

MOVB 

JMpi 

DATI 

JMPB7 

SHR 

JMP80 

DATI 

SHR 

JMPB4 

NOP 

NOP 

NOP 

NOP 

DAT! 

JMPB7 

LDBR 

MOVB 

RETURN 



?E103 JMP 



reqsld: 



J MP I 
DATI 
JMPB4 

JMP 

LDMAR 

DATI 

liDBR 

MOVB 

JMpi 

DAT! 

JMPB4 

LDBR 

MOVB 

JMPI 

DATI 

JMPBO 

JMP 

LDMAR 

DATI 

MOVMEM 

SHR 



HLDOUT+SELOUT+TMREN+CLKOUT+MTROUT 
TORO 

INTERUPT 
TAGINO,BR 
REQSLD 



;SET SELECT OUT 



NOREQ 
TAGINt ,BR 

WATREQ 



TAGIN0,8R 
REQSLD 
MTROUT 
TORO 



WATREQ 

INTERUPT 

TAGINQ,BR 

.+2 

.•3 

INTDRV 
CBILO,M£M 



ICHECK ON INTERRUPTS 
# READ TAG IN LINES 
|WAIT FOR OPERATIONAL IN 
;SHIFT SELECT IN TO BRO 
;IF SET, NO DRIVE RESPONDED 
I £103 READ OTHER TAG IN LINES 
SHIFT 'REQ IN' TO BIT 4 
IF STILL SET, KEEP WAITING 
ELSE, DELAY A WHILE AND 
CHECK 
FOR 

*OPL IN' 

READ TAG IN LINES 
JUMP IF *OPL IN* IS SET 
ELSE, DROP TAG OUT LINES 



?tlOJ 
* CIO! 
?£10J 
I tlOJ 
jtlO] 
It 10 J 
? 1 103 
;C10J 
; tioj 

It 103 
If 103 



f KEEP WAITING FOR RESPONSE 

ICHECK ON INTERRUPTS 

I READ TAG IN LINES 

IWAIT FOR ADDRESS IN TO SET 



ISET COMMAND OUT 



I SELECT MEMORY LOCATION FOR ADDRESS 
|READ DEVICE ADDRESS 
HLDOUT+SELOUT+CMDOUT+TMREN+CLKOUT+MTROUT 
TORO 

INTERUPT ICHECK ON INTERRTUPTS 

TAGINO,BR | READ TAG IN LINES 

.-2 | WAIT FOR ADDRESS IN TO DROP 

HLDOUf+SELOUT+TMREN+CLKOUT'f MTROUT f DROP COMMAND OUT 

TORO 

I CHECK ON INTERRUPTS 
I READ TAG IN LINES 
I WAIT FOR STATUS IN TO SET 



INTERUPT 
TAGINO,iR 
V+2 

INTSTS 

CBILO,MEM 

BR 



I SELECT MEMORY LOCATION FOR STATUS 
I READ STATUS BYTE 
I GET STATUS TO BR 
ISHIFT UNIT CHECK TO BRO 
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1593 


001470 


o 


105526 


4 


2 


1526 




JMPBO 


RDSNS 

«> *«* fc* %# 


*READ SENSE BYTES IF SET 


1594 


001471 


o 


014000 





6 


000 




SHR 




tSHIFT DEVITF EMD TO RRO 


1595 


001472 





105505 


4 


2 


1505 




JMPBO 


RPTSTS 


fREPORT STATUS IF SET 


1596 


001473 





042011 


2 


1 


00 11 




MOVMEM 


BR 


i txxl 


1597 


001474 





014000 





6 


000 




SHR 




r txxl 


1598 


001475 





107500 


4 


3 


1500 




JMP84 


f 00 


* txxi 


1599 


001476 


o 


002106 





1 


106 




JUMP 


HALT 


f txxi 


1600 


001477 

V v J, f f 


o 


160231 

4k w v» m» *0 tju 


7 





11 11 










1601 


001500 












FQQJ 






?£XX5 


1602 














?I61 


JMpSUB 


DSELCT 


; ACCEPT THE STATUS 


1603 


001500 





117253 


4 


7 


1253 




JMpSUB 


CHAIN 


JC61ACCEPT STATUS AMD INDICATE 


1604 


001501 





016000 





7 


000 




RETURN 






1605 























DXMCA 
DXMCA 



- DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 



MAC 



23-Sep-81 15120 



GET INTERRUPT STATUS FROM DEVICE 
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1606 


001502 





002040 





1 


040 


NQREQ: 


LDBR 


MTROUT 


1607 


001503 





064051 


3 


2 


02 11 




MOVB 


TOR0 


1608 


001504 





016000 





7 


000 




RETURN 




1609 


















1610 


001505 





002011 





1 


Oil 


RPTSTS: 


LDBR 


MB 


1611 


001506 





066371 


3 


3 


17 11 




MOVB 


lOSElb 


1612 


001507 





132001 


5 


5 


00 01 




DAT! 


A5YC8T, ACQ 


1613 


001510 





060007 


3 





00 07 




DEC 


ACQ 


1614 


001511 





115517 


4 


6 


1517 




JMpZ 




1615 


001512 





002033 





1 


033 




LDBR 




1616 


001513 





066371 


3 


3 


17 11 




M0V8 


I OS Eli 


1617 














»t8) 


JMPSUB 


STACK 


1618 


001514 





002345 





1 


345 




GOSUB 


STACK 


1619 


001515 





177631 


7 


7 


3 11 11 








1620 


001516 





016000 





7 


000 




RETURN 




1621 




















1622 














t C81RPTNOW* 


MOVMEM ASYCST-I 


1623 


001517 





043411 


2 


1 


3 00 11 


RPTNOW: 


MOVMEM 


BR, I 


1624 


001520 





046011 


2 


3 


00 11 




MOVMEM 


ASYCDR 


1625 


001521 





066031 


3 


3 


01 11 




MOVB 


ASYCST 


1626 


001522 





002033 





1 


033 




LDBR 


CHN 


1627 


001523 





066371 


3 


3 


17 11 




MOVB 


IOSEL 


1628 


001524 





117234 


4 


7 


1234 




JMPSUB 


DSELCT 


1629 


001525 





016377 





7 


377 




RETURN 


• 1 


1630 




















1631 


001526 





117253 


4 


7 


1253 


rdsms: 


JMPSUB 


CHAIN 


1632 


001527 





003401 





1 


3 001 




LDBR 


1,1 


1633 


001530 





052131 


2 


5 


05 11 




MOVMEM 


ACS 


1634 


001531 





117533 


4 


7 


1533 




JMPSUB 


SENSE 


1635 


001532 





016000 





7 


000 




RETURN 





J DROP SELECT OUT 



I SELECT MASSBUS INTERFACE 

;READ ASYNC STATUS REGISTER 

; DECREMENT TO CHECK IF CURRENTLY ZERO 

?IF ZERO, REPORT NOW 

| SELECT CHANNEL BUS INTERFACE 

t STACK THE STATUS 
;C8J STACK THE STATUS 

I REPORT IT LATER 

? REPORT THE STATUS 
?C83 GET THE STATUS INTO THE BR 
^REPORT THE DRIVE ADDRESS 
; C81 REPORT THE STATUS 
; SELECT CHANNEL BUS INTERFACE 

f ACCEPT THE STATUS AND DESELECT 
fSET Z TO SAY STATUS WAS PRESENTED 

; ACCEPT THE STATUS 

fSET BIT IN BR 

fPUT DRIVE ADDRESS IN ACS 

| READ THE SENSE BYTES 



1636 
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A £L H Tf 














tREAD SENSE BYTES FROM DRIVE NUMBER 


TN Ars 
















t TRANSFER BYTES 


TO MEMORY EXIENDED 


STATUS TABLE IP 


X Q «? ~ 














;BR BIT IS NOT SET ON ENTRY 




1 &AA 

X Ot? v 


































*i|ctre &f9 






1 AA9 

X O ** * 




















1 A A ^ 

X Dt* ,5 


A A 1 eii 


A 


07 9 A5 1 
V f £ V v X 




5 


09 1 1 

V v* XX 


O tsu © cu • Fiuyo 


AT9 


f SAVE CONTROL BIf IN BIT 


1 &AA 


AA 1 «i ^ A 


A 


V V 4> V V *t 





4 

X 


004 

v v v*t 


Xj V©f% 


A 

Tf 


t GET SEHSE COMMAND 


X o*ko 


A A 1 1** 


A 

V 


07 9 1 «H 1 






A A6 1 1 

V v/0 X X 


RU V O 


MUD 


• IMTO AC6 


i AAA 


on 1 5 16 




V 


1 1 797 1 

XX 9 & 9 J 


4 


7 


197 3 


V "rwUO 


dfT fir"! 1 9 
O C# X! V X A 


I SELECT THE DEVICE AND ISSUE SENSE COMMAND 


1 647 


VV X H# ' 




V 


1 15600 

X * J W V v 


4 


6 


1600 

A v V v 


4 1MD7 

U i*i ir 4u 


A X X iilPiO 


t JUMP IF INITIAL STATUS ERROR 


X Otto 


A A 1 KdA 


A 


069 A5A 

v V 4fe V ^ U 




X 


A A9 1 A 
v v* X v 


M fit/ 




£GET CONTROL BIT 


1 AAQ 


A A 1 t\ A 1 

v v * X 


A 

V 


1 0556 % 


4 


9 

4* 


1 S6 ^ 

X w © »> 




B* Ki nCM 45 


tDQN # T READ BYTES IF BIT IS SET 




A A 1 A9 


A 

V 


1 1 709A 


4 

TP 


7 


1 99 A 

X 4ft 4 TP 


Chi Ct # .TMD^Iftt 
X a«a i ynrovtJ 


AVvC*r X 


•ACPPPT THE STATUS 


1 t>D X 


A A 4 KA1 


A 

V 


A A i A** 9 


A 

V 


A 


*"> A«i O 
/ v© / 


Xi U W A K 


SBYT00 




1 

Id j/ 


A A 1 RAA 


U 


X v 3 9 D 9 


A 

TP 


4 

X 


1 7 A 7 

X # © / 


N A X ©no # U w " Jl 


INTERUPT 




1 £ C 1 


A A 1 CAR 


A 
V 


A 9 9 A A A 
v / v v % 


X 


1 

X 


A A A A A 

U UV v tt 


Un X X 


TAGIN0,BR 


•READ TAG IN LINES 


1 &KA 
X O v *i 


A A 1 *t A 6 


A 


1 A«v«%77 


A 


9 


1 C77 
X © # / 




LSTSNS 


|END OF SENSE COMMAND IF STATUS IN IS SET 


1 A55 

X O s7 


A A 1 ^41 

v v X % # 




V 


099005 


1 

X 


X 


A Aft ft 5 


n ATT 


TAGIN1 ,BR 


;READ TAG LINES 




001 550 




V 


1 11552 


4 


4 

TP 


1552 

& *J *J & 


1,1 ii |f o r 


.♦2 


fSKIP IF SERVICE IN IS SET 


A V *J f 


0015 51 


o 


101544 


4 

TB 





1544 

4, V TlTC 


.IMP 


NXTSNS 


?N0, KEEP WAITING 


1658 


001 559 

V v A w v A 




V 


031407 

V X TP V / 


1 


4 

Tr 


3 00 07 

J> V V V f 


DAfI 


CBIL0,M1M,I 


f READ SENSE BYTE, PLACE IN MEMORY 


1 659 


001 55 3 

V V/ A J 3 J 





009356 





4 

X 


356 


LDBR 


SRVOUT+HLDOUT+SELOUT+TMREN+CIiKOUT+MTROUT ?SET SERVICE OUT 


ivwv 


001 554 

vv 




V 


064051 

V V TS V V X 


3 


9 


09 1 1 

v V* X X 




TORO 




1661 


001555 





103767 


4 


1 


1767 


v w r x 


INTERUPT 


t CHECK ON INTERRUPTS 


1662 


001556 





022005 


1 


1 


00 05 


Aft TT 


TAGIM ,BR 


J WAIT FOR SERVICE IN TO DROP 


1 66 % 


A A4 &C7 


A 


111 555 

X X X «# <«? 


4 


A 


X %7 -7%/ 


.1MD&7 


.-2 




1 66 4 


01 560 

V v X «3 v v 




V 


9156 




V 


X 


156 

V X © v 


XjUdIv 


HLDQUT+SEWUT+TMREN+CLKQUT+MTROUT t DROP SERVICE OUT 


1 665 


001561 

V V JL %? V 4> 





064051 

V V v v 


3 


9 


09 1 1 

V V X XX 


!»jU f D 


TORO 




X O vO 
1 667 


A A 1 6 9 





1 1544 

X VX *3Tt*f 


4 


A 


1 «4AA 


f MO 


NXTSNS 


fWAIT FOR NEXT BYTE 


4. D w f 


A A i IE A 1 

V U X D J 


A 
V 


A i 7 9 9 A 
X X 9 


A 


7 


1 99A 


|J*^M©ri©5 u™"©v© 


ACCEPT 


} ACCEPT THE STATUS 


1 £ & Q 


A A 1 A 


A 

V 


1 A TL767 
X U J / © 9 


A 


X 


4 767 
X r © / 




INTERUPT 


J CHECK ON INTERRUPTS 


1670 

X v / V 


001565 

V V x o **» 




V 


099005 


1 

X 


4 

X 


00 05 

V V V V *l 


nftf T 
U« A A 


TAGIN1 ,BR 


J WAIT FOR SERVICE IN TO SET 


1671 

* V / X 


001 566 
v v X i? Q v 




V 


111570 


4 


4 


1 570 


y ~ if d # 


,*2 




1 679 


001 567 

vvA5w * 




V 


101 564 
X v X © *ff 


4 





1 56A 

X ©©IE 


U 


• •3 


1 67 % 
x v / 


001570 

V V X *•? /v 


A 

V 


009157 




V 


1 

X 


157 

v X f f 


Ajw 


HLD0UT+SEI*0UT*CM00UT+TMREN4.CLK0UT*MTR0UT ;SET COMMAND OUT 


1674 


001571 





064051 

V V ts V *Jt JL 


3 


9 


02 11 

v V 4* * X 


M0VB 


TORO 




1 4%*7 fit 


A A 1 *%7 9 


A 
V 


1 0*767 
X v J / © / 


A 


1 
X 


17 67 
X 9 © f 


JMPI 


INTERUPT 


fCHECK ON INTERRUPTS 


1 676 


001573 

V V X f *# 




V 


099005 


1 

X 


1 

X 


00 05 


Riff 
V n 1 X 


TA(SINl r »R 


?IAIT FOR SERVICE IN TO DROP 


1677 


001574 





111572 


4 


4 


1572 


.1H0R7 
U^r © f 


• -2 




1678 


001575 





002156 





1 


156 


T ft£t© 


HtiDOUT+SEMOT+TMREN+CLKQUT+MTROUT ? DROP COMMAND OUT 


1 67 Q 


001 576 


o 




3 


9 


09 11 

V V 46 X X 




TORO 




1 6H0 

4. V V V 


001577 




V 


1 17911 


4 

Tf 


7 


1211 


.|4 o x ii o # y^if£Jv© 


WAITST 


?WAIT FOR STATUS BYTE 


1 1 

X 0$ X 


A A 1 AAA 
v v X © v v 


A 

v 


1 17 9 3A 

XX 9 £. *P *f 


A 


7 


1 93 A 
X * *i 


AXx©w5» a™FI»'UiS 


DSELCT 


; DESELECT FROM DEVICE 


1 689 
1683 


001601 

V v X v V X 





016000 

v X v W v 




V 


7 


000 

v W V 


|\ & X v P9 






* WV J 


A A 1 A AO 


A 

V 


069 1 1 A 
v ©* X X v 




1 

X 


A A A 4 A 
V VtI xv 


C8EH8Et- NOV 


AC4,BR 


;RiAD FLAGS 


1685 

aOw%J 


001603 




V 


014000 





6 


000 

\f V V V 






f SHIFT INHIBIT SENSE BIT 


1686 


001604 

V V *|» W V ~ 





014000 





6 


000 


SHR 




J TO BRO 


1687 


001605 





105600 


4 


2 


1600 


awpso 


XITSNS 


fIF SET, DESELECT FROM DEVICE NOW 


1688 


001606 





002033 





1 


033 


IjDSR 


cm 


7SELECT CHANNEL BUS INTERFACE 


1689 


001607 





066371 


3 


3 


17 11 


M0VB 


lasEb 




1690 


001610 





117253 


4 


7 


1253 




CHAIN 


f ACCEPT DEVICE STATUS AND INDICATE CHAINING 


1691 


001611 





002000 





1 


000 


t*DBR 





# CLEAR BRO 
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1693 001613 016000 70 000 RETURN 
1694 



J 



> 
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1 £9** 






1 6Q6 






1697 






1 69ft 






j, %f & ^ 


001614 





1700 

A f V V 


001 6 1 





1701 


00161 6 





1709 






170^ 


OfM 617 


A 
V 


1 704 


001 690 




V 


1 7 AC 


0016 91 


O 

V 


1706 






1707 


001622 





1708 


001623 





1709 


001624 





1710 







117734 


4 


7 

f 


1734 


002021 


V 


1 


021 


101627 


4 





1627 


117767 


4 


7 


1767 


002026 





1 


026 


101350 


4 





1350 


117767 


4 


7 


1767 


002046 





1 


046 


101350 


4 





1350 



SUBTTL STATUS ERRORS 



1 1NITIAL STATUS ERROR 



TSTERR t 


JMPSUB 


LOGREG 




LDBR 


WWW # ■*■ »* 




JMP 


STERR 


adrpe: 


JMPSUB 


INTERUPT 




LDBR 


RE,AP 




JMP 


RESET 


iSTPEt 


JMPSUB 


INTERUPT 




LDBR 


RE.SP 




JMP 


RESET 



MACRO %53B(1155) 15:46 15-Feb-82 Page 46 



J LOG THE REGISTERS 
;GET ERROR NUMBER 



JCHECK IF A FATAL INTERRUPT 

;GET ERROR CODE 

f RESET THE DEVICE FIRST 

;CHECK IF A FATAL INTERRUPT 

7 GET ERROR CODE 

; RESET THE DEVICE FIRST 



DXMCA 
DXMCA 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 
MAC 23-Sep-81 15»20 STATUS ERRORS 



1711 














t ENDING 


O a i»i A yy 


PPRHP 


1712 


















1713 


001625 


o 


117734 


4 


7 


1 734 


ti*$Lf (TOD • 


.TMD.Qlf ft 
v# ™ f* Oil o 


r*nf:Psr/!2 


1714 


001626 


o 


002001 

v v 4« V V A 


o 


1 

A 


001 


& V? A Sif *\ 1/ # 




u wo • r *™ 


1715 


001627 


o 


07201 1 


3 


5 


00 1 1 

v " ^ V A A 






aro 


1716 

A r A w 


001630 





002011 

V V A V A A 





i 

A 


Oil 




i*nftR 




1717 


001631 





066371 


3 


3 


17 11 

V A f A A 




MOVR 




1718 


001632 


o 


062010 


3 


1 


00 10 




MOV 


AC0 -RR 


1719 


001633 





064051 


3 


2 


V V#» A * 




nw yo 


MPfrrp 


1720 


001634 

V "a* 4» w *t# *s 


o 


062030 


3 


1 


01 10 




MOV 


An hp 

a f PR 


1721 


001635 





064231 


3 


2 


11 11 

v A A A A 




MOVB 


STBYTE 


1722 

A f •* 4w 


001636 


V 


107641 


4 


3 


1 641 




.1MOA4 




1723 


001637 


o 


117602 


4 


7 


1602 

A w V 4ft 


rv i> w 9 






1724 


001640 





101666 


4 





1666 






RPTF!RR 

o * a **# s\ r\ 


1725 

X / mm <*J 




















1726 


001641 





117234 


4 


7 


1234 


RSYFRR f 


V/ It *# V Cr 


ywc»«v a 


1727 


001642 





101666 


4 





1666 




V * » IT 


RPTKRR 

r\ tr a is* fii. it. 


1728 




















1729 


001643 





1 17767 


4 


7 


1767 

A f V f 


c,w 4. r w t 


iTMPSHR 

VI ™ IT*? v O 




1730 


001644 





117734 


4 


7 


1734 




JMPSOB 

V ' 1 A »w* V W 


jyf w \? *\ tit xt 


1731 


001645 





002011 





1 


011 

V V A A 




14 i/ s? r\ 




1732 


001646 

\f V A w T(f W 





066371 


3 


3 


17 11 

V At a * 






4 M £> Cit Ll 


1733 


001647 

V V A W TS f 


o 


062030 

V V # V w 


i 


1 

* 


01 10 
V V A A W 


FSfPF* t 




&n rr 


1734 


00 1 6**0 





V V ** 4E> *? A 






11 11 

V A A A A 








1735 


001651 


o 

V 


00202** 

V V 4 V «i i? 





1 


02*% 






PI<*M tlD 


173(5 


001652 





064051 


3 


2 


02 11 

V V 46* A A 








1737 


001653 





117724 


4 


7 

9 


1724 

1 r Ait 




il ~ It fi> W P 




1738 


001654 




V 


1 17602 

* A f w V 4 


4 


7 


1602 

A V V 4b 




^TMPSflB 
V™rwy o 


V »«* C» ™ fip 


1739 


001 655 

V V 4 W w w 





101666 

A W A W W \J 


4 





1666 

A V W 




JMP 


1% IT A 5* 1% Pr 


1740 




















1741 


001656 





117767 


4 


7 


1767 

A # W # 


F5TPE0 2 


W ' * *r »# %pf »# 


A- ** A «+• K\ IT * 


1742 


001657 


o 


117734 

A A f r ▼ » 


4 


7 


1734 






f.flf«RFG 


1743 


001660 





117165 


4 


7 


1 165 








1744 


001661 





101647 


4 





1647 




JMP 


ESf PEX 


1745 




















1746 


001662 





117767 


4 


7 


1767 


ESTPECI 


awpsuB 


INtEROPf 


1747 


001663 





117734 


4 


7 


1734 




jmpsub 


00GREG 


1748 


001664 





117065 


4 


7 


1065 




JMPSUB 


RPTSIZ 


1749 


001665 





101647 


4 





1647 




JMP 


ES1FEX 



1750 
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;L0G THE REGISTERS 
?GET ERROR NUMBER 
f SAVE IN ACQ 

; SELECT MASSBUS INTERFACE 

?GET ERROR NUMBER 

; LOAD ERROR C00E REGISTER 

;GET STATUS BYTE 

; LOAD INTO STATUS REGISTER 

fJUMP AROUND IF BUST STATUS 

;REA0 THE SENSE BYTES 

I REPORT THE ERROR 

I DESELECT FROM DEVICE 
J REPORT THE ERROR 

fCHECK IF A FATAL INTERRUPT 
;N0, LOG THE REGISTERS 
; SELECT MASSBUS INTERFACE 

; GET STATUS BYTE 
; PRESENT IT 
JfGET ERROR CODE 
J LOAD IT 

; CLEAR THE PARITY ERROR 
I READ THE SENSE BYTES 
? REPORT THE ERROR 

f CHECK IF A FATAL INTERRUPT 

fNQ, LOG THE REGISTERS 

J CLEAR THE BYTE COUNT REGISTER 



? CHECK IF A FATAL INTERRUPT 

I NO, LOG THE REGISTERS 

; REPORT THE SIZE OF RECORD READ 



DXMCA « 
OXMCA 

1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 
MAC 23-Sep-81 15820 ERROR REPORTER 

SUBTTL ERROR REPORTER 
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jTHIS ROUTINE WILL PROPERLY TERMINATE FROM THE RH20 

; AND REPORT AN ERROR TO THE HOST BY SETTING MPERR AND ATA 

;THE ERROR CODE MUST BE LOADED BEFORE CALLING THIS ROUTINE 
jTHIft ROUTINE ALWAYS EXITS DIRECTLY TO THE IDLE LOOP 



01 fifth 

w v a q g w 


o 

V 


002011 





i 


011 


HPTERR ! 


LDBR 

V* o ir\ 


MB 


| SELECT THE MASSBUS INTERFACE 


001 667 

vvAvw f 


w 


066371 


3 


3 


17 11 




MOVB 


IOSEL 




0016 7 

V v Jt W # V 


A 
V 


002000 

V V 4» v V w 





1 
* 


000 




LDBR 


o 


; CLEAR THE FLAG REGISTER 


001671 


V 


064171 


3 


2 


17 11 




MOVB 


FLAGS 




00167 9 


f> 

V 


290 01 


i 

* 


JL 


00 01 






MPSCR1 .BR 


f READ THE STATUS REGISTER 


001673 


o 

V 


1 07677 


4 


3 


1677 




JMPB4 


XFREHR 


>aU«P IF OCCUPIED IS ASSERTED 


O 1 6 7 4 


A 

V 


002302 





1 
* 


30 9 




til v o*> 


ATA+MPf RR*CLRGO 


t SET ERROR AND INTERRUPT THE HOST 


001675 





064031 


3 


9 

** 


01 11 




MOVB 


MP5CR1 




001676 





100026 


4 





0026 




JMP 


IDLE 




001677 





002120 





1 


120 


XFRERR t 


LDBR 


MPERR+OCC 


J SET MPERR TO CAUSE EXCEPTION 


001700 





064031 


3 


2 


01 u 




MOVB 


MPSCR1 




001701 





002100 





1 


100 




LDBR 


MPERR 


; CLEAR OCCUPIED 


001702 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




001703 





002101 





1 


101 




LDBR 


MPERR+EBL 


f SEND AN EBL 


001704 





064031 


3 


2 


01 11 




MOVB 


MPSCR1 




001705 





022000 


1 


I 


00 00 




DATI 


MPSCRO,BR 


# WAIT FOR RUN TO DROP 


001706 





105705 


4 


2 


1705 




JMPBO 


.-1 




001707 





002302 





1 


302 




LDBR 


MPERRfATA+CliRdO 


;SET ATA AND CLEAR GO 


001710 





064031 


3 


2 


Ol 11 




MOVB 


MPSCR1 




001711 





100026 


4 





0026 




JMP 


IDLE 


|G0 IDLE 
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DXMCA MAC 23-Seo-81 15820 CLEAR SENSE BYTE STORAGE AREA 



1781 
1782 
1783 
1784 
1785 



SUBTTL CLEAR SENSE BYTE STORAGE AREA 

jTHIS ROUTINE WILL CLEAR THE SENSE BYTE STORAGE AREA IN MEMORY 
;TO INDICATE THAT NO SENSE BYTES WERE READ 



1786 


001712 





000400 








1 000 


CLRSN5S LDMARX 





; SELECT MEMORY BANK 


1787 


001713 





001052 








2 052 


LDMAR 


8BYT00 


;SELECT MEMORY ADDRESS 


1788 


001714 





002027 





1 


027 


LDBR 


-D24-1 


;GET COUNT OF SENSE BYTE 


1789 


001715 





072011 


3 


5 


00 11 


MOVB 


ACO 


t LOCATIONS 


1790 


001716 





011400 





4 


3 000 


LDMEM 


0,1 


pCLEAR A LOCATION, INCREMENT TO NEXT 


1791 


001717 





072007 


3 


5 


00 07 


DECR 


ACO 


; DECREMENT COUNT 


1792 


001720 





113716 


4 


5 


1716 


JMPC 


,•2 


J LOOP IF STILL POSITIVE 


1793 


001721 





0O22OO 





1 


200 


LDBR 


STATRQ 


jSET REQUEST BIT 


1794 


001722 





064211 


3 


2 


10 11 


MOVB 


STINDX 


t TO GET INDEX ZERO AT END OF COMMAND 


1795 


001723 





016000 





7 


000 


RETURN 







1796 
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DXMCA MAC 23-Sep-81 15:20 CLEAR PARITY ERRORS IN 0X20 



1797 SUBTTL CLEAR 

1798 



1 799 


001 794 


A 
V 


00202? 





1 

A 




V 


022 


fLRPEf I.DBR 


1800 


001725 





066371 


3 


3 





17 11 


MOVB 


1801 


001726 





064031 


3 


2 





01 11 


MOVB 


1802 


001727 





064011 


3 


2 





00 11 


MOVB 


1803 


001730 





002033 





1 





033 


LDBR 


1804 


001731 





066371 


3 


3 





17 11 


MOVB 


1805 


001732 





064011 


3 


2 





00 11 


MOVB 


1806 


001733 





016000 





7 





000 


RETURN 



1807 



ERRORS IN DX20 



DP ; SELECT THE DATA PATH 
IOSEL 

REG1 ;CLEAR PX HIGH SPEED 

REGO jCLEAR DATA PATH ERROR FLAGS 

CHN ; SELECT CHANNEL INTERFACE 

IOSEL 

CSRO ; ERROR FLAGS 



DXMCA « 
DXMCA 

1808 
1809 
1810 
1811 
1812 
1813 
1814 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1831 
1832 
1833 
1834 
1835 
1836 
1837 
1838 
1839 
1840 
1841 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 MACRO %53B(1155) 

MAC 23-Sep-81 15t20 INTERNAL REGISTER LOGGING ROUTINE 

SUBTTL INTERNAL REGISTER LOGGING ROUTINE 
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?THIS ROUTINE WILL LOG ALL INTERNAL REGISTERS INTO 
;THE EXTENDED STATUS AREA IN MEMORY 

;FOR EDIT £33, THE JMPSUBS TO THE 'LOG' ROUTINES WERE CHANGED TO GOSUBS. 



001734 





000400 








1 


000 


LOGREGS ldmarx 


o 




001735 





001104 








2 


104 


LDMAR 


STAT 


fSELECT MEMORY LOCATION 


001736 





131416 


5 


4 


3 


00 16 


DATI 


MPSTAT. MEM. I 


SttQC STATUS RFGTSfFR 


001737 





131417 


5 


4 


3 


00 17 


DATI 


IOSEL, MEM, I 


;L0G I/O SELECT REGISTER 


001740 





002011 





1 





Oil 


LDBR 


MB 


t SPTtlTPf 1 14 A C CCHI Q T M V U* D IP A P tP 

t oniju&w i RftaooUa INI &Kr Av*& 


001741 





066371 


3 


3 





17 11 


MOVB 


IOSEL 




001742 





002312 





1 





312 


GO SUB 


LOGO 


IC33LOG REGISTERS 0»7 


001743 





177631 


7 


7 


3 


11 11 






001744 





002323 





1 





323 


GOSUB 


LOG 10 




001745 





177631 


7 


7 


3 


11 11 






001746 





002334 





1 





334 


GOSUB 


LQG2G 




001747 





177631 


7 


7 


3 


li 11 






001750 





002033 





1 





033 


LDBR 




f RWliWCP fll kMMWt. t M *P IT Q B» A C IB* 
f OCU&v l v. n « rt m & u DUO I tLtig 


001751 





066371 


3 


3 





17 11 


MOVB 


IQSEL 


001752 





002312 





1 





312 


GOSUB 


LOGO 




001753 





177631 


7 


7 


3 


11 11 






001754 





002003 





1 





003 


LDBR 


3 


# WRITE CSRO TO CLEAR ANY 


001755 





064011 


3 


2 





00 11 


MOVB 


CSRO 


? PARITY ERRORS MAY HAVE SET BY DATI'S 


001756 





002022 





1 





022 


LDBR 


DP 


; SELECT DATA PATH INTERFACE 


001757 





066371 


3 


3 





17 11 


MOVB 


IOSEL 


001760 





002312 





1 





312 


GOSUB 


LOGO 


?C33LQG REGISTERS 0-7 


001761 





177631 


7 


7 


3 


11 It 






001762 





002323 





1 





323 


GOSUB 


LOG 10 


t 1 33 LOG REGISTERS 10-17 


001763 





177631 


7 


7 


3 


11 It 






001764 





001105 








2 


105 


LDMAR 


I0REG 


f GET SAVE I/O SELECT REGISTER 


001765 





046371 


2 


3 





17 tl 


MOVMEM 


IOSEL 


? RESTORE IT 


001766 





016000 





7 





000 


RETURN 







DXMCA 
DXMCA 
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1842 SUBTTL CRAM BANK LINKAGE 

1843 

1844 001767 002061 1 061 JNTERUPT : JUMP INTRPT 

1845 001770 160231 7 11 11 
1846 

1847 

1848 002000 ,LOC 2000 
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;JUMP TO HIGH BANK TO ROUTINE 
;SKIP TO NEXT BANK 



DXMCA 
DXMCA 
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1 849 
















1850 
















1851 
















1852 
















4 Q <J *# 
















1854 
















1855 

J, W "mF «K> 
















1856 


002000 

w *f mn v w v 


i 

* 


002020 

v v m* v m V 





1 

4r 





020 


1857 


002001 


1 


064031 


-a 
*# 


2 





01 11 


1858 
















1859 
















1860 

A 9 VV 
















1861 


002002 


1 

4. 


022000 


1 

4 


1 

4 





00 00 


1862 

4 w V «G» 


002003 

V v 4S* V V w 


1 

4 


104005 


4 


2 

** 


0005 


1863 


002004 

V V ft V v ™ 


1 
4 


1 16035 

A * vv 


4 


7 


0035 


1864 
















1865 
















1866 

A r J V W 
















1867 


002005 


1 

* 


002047 

V V 4b V TP f 





1 
4 





047 


1868 


002006 


1 
* 


072011 

V f 4> V 4 A 


3 


5 





00 11 


1869 

4 O V *7 


002007 

V V 4* V V / 


1 

* 


002000 





1 





000 


1870 


002010 




064171 


3 


2 





07 11 


1871 


002011 

V V mt V 4 4 


1 

* 


000400 

v %/ v w v/ 





o 


1 


000 


1872 


00201? 

V V A V 4, *t 


1 
* 


001052 








2 


052 


1873 


002013 


1 

* 


002024 





1 

* 





024 


1874 


002014 


1 


045551 


2 


2 


3 


06 11 


1875 


002015 


1 

4 


045531 


2 


2 


3 


05 11 


1876 


002016 


1 

* 


064031 


3 


2 





01 It 


1877 


002017 


i 


000000 


o 








000 


1878 


002020 


f 
* 


07 2007 


3 


5 

•** 





00 07 


1879 

4 Q f & 


002021 


1 

ill 


112014 

4 4 V 4 ** 


4 


5 


0014 


A © M V 
















1881 
















18 82 
















1883 
















1884 


002022 


1 

* 


002021 





1 

4 





021 


1885 


002023 

v V A v 


1 

4 


064031 

V \S Tf V <rf «S» 


3 


2 





01 11 


1886 


002024 


1 
* 


002000 





1 

4 





000 


1887 

4 W V f 


002025 


1 

4 


064371 


3 


2 





17 11 


1888 


002026 




000000 

v v v w v v 











000 


1889 


002027 


* 


022000 


1 

4 


1 

4 





00 00 


1 890 

4 g IP V 


002010 

V V 4* V <«9 V 


* 


104005 


4 


2 


0005 


1891 


002031 


1 


002002 





i 





002 


1892 


002032 


1 


064031 


3 


2 





01 11 


1893 


002033 


1 


002026 





I 





026 


1894 


002034 


1 


160211 


7 








10 11 


1895 

















SU8TTL DUMP STATUS ROUTINE 



f A. DUMP STATUS COMMAND MAS BEEN RECEIVED 

/DUMP THE CURRENT CONTENTS OF THE EXTENDED STATUS TABLE 

/OVER THE MASSBUS DATA INTERFACE 



D0DUMPJ LDBR 
M0VB 



0CC 
MPSCR1 



/WAIT FOR RH20 TO ASSERT RUN 

DATI MPSCR0,BR 
JMPB0 ,+2 
JMPSUB WAITRN 

/SET UP AND TRANSFER DATA TO RH20 



LDBR 


MAXIDX*2+1 


MOVB 


AC0 


LDBR 





MOVB 


MPDB2 


LDMARX 





LDMAR 


SBYT00 


LDBR 


0CC+START 


MOVMEM 


MPDB1 ,1 


M0VMEM 


MPDBG,I 


M0VB 


MPSCR1 


NOP 




DECR 


AC0 


JMPC 


DATDMP 



? ALL DATA HAS BEEN TRANSFERRED 
/SEND AN EBL TO TERMINATE 



;SET OCCUPIED 
/SEND TO RH20 



;READ RUN BIT 
/SKIP IF SET 
/NO, WAIT FOR IT 



| GET COUNT OF HALF WORDS TO WRITE 

?SAVE IN AC0 

J CLEAR THE TWO UNUSED 

; BITS IN THE DATA REGISTER 

I SELECT MEMORY BANK 

J SELECT EXTENDED STATUS TABLE 

?GET START BIT INTO BR 

J LOAD TWO BYTES OF STATUS 

f INTO DATA BUFFER 

; SEND AN SCLK 

/ASSURE 1200 NS FOR SCLK 

/DECREMENT HALF WORD COUNT 

/REPEAT UNTIL ALL BYTES ARE SENT 



LDBR 


OCC+EBL 


/SEND AN EBL TO RH20 


MOVB 


MPSCR1 




LDBR 





/CLEAR THE FLAGS 


MOVB 


FLAGS 




NOP 




/WAIT FOR EBL TO DROP 


DATI 


MPSCR0,8R 


/READ RUN BIT 


JMPBO 


DMPSET 


/SET UP, REPEAT IF STILL 


LDBR 


CLRGO 


/CLEAR GO AND OCCUPIED 


MOVB 


MPSCR1 




JUMP 


IDLE 





DXMCA 
DXMCA 
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MAC 23-Sep-Sl 15:20 WAIT FOR RH20 TO ASSERT RUN 



1896 SUBTTL WAIT FOR RH20 TO ASSERT RUN 

1897 



1 QQO 

a o y o 


A A ft H 


1 


VvA J?J 


o 

V 


1 

* 


o 


WATTRNl I,DRR 


(<-<*D10M/-0i950>.»8>R377) fGET COUNT TO WAIT 


1 QOQ 




i 

X 


v f 4* \f j> a 






O 00 1 1 


MOVB 


AC0 


I 10 MILLI-SECQNDS 


1900 


002037 


1 


002370 





l 


370 


ldbr 


(-<*D10M/* k Dl950>&377) 


» WAIT LOOP BELOW 


1901 


002040 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 


t TAKES 1950NS 


A7V4 


A A O A A 1 

V V £> V *t Ir 


1 

A 


02900ft 


1 

A 


i 

A 


ft ftft ftft 


RNCNTl DAT! 




fREAD STATUS REGISTER 


tool 


ft 9 ft 4 9 


1 

A 


104114 

A v *f A * 


4 


2 
* 


ft 1 1 4 

V A A *m 


JMPB0 




f RETURN MOW IF SET 


1 on a 


ftft 9ft A 1 


A 


ft72ft2^* 






ft ft1 ft ^ 


JL v ff\ 


Aft 


fOCREMFNT TMF WAIT -COUNT 


1 Oft** 
A V 3 


ftft9ft44 

U 1/ A V •! *f 


4 

A 


ft79 ftft A 

v / 4* \j v ** 




c 

•J 


ft ftft ft 4 


ADCR 

W ^ V ^ 


ACO 


I ALL OF IT 


1 9ft& 


00204*) 


1 

A 


1 12047 


4 


5 


0047 

v V ~ f 






f JUMP IF TIMEB OUT 


1 Qfi7 

1 one 


ftft OA A A 


1 
A 


1 ft ft ft 4 1 

X V V V T 1 


A 
*t 


ft 


ftft4 1 








A 7VO 

1 QOQ 




A 


AA^I U 


A 

V 


A 


ft ^ u 






•LOG THE REGISTERS 


i q 1 ft 
x y a v 


A A«) AC A 

v V 4» V □ V 


A 


1 7761 1 
A * r V A A 


7 
9 


7 


* 1ft 11 

4> A v A A 








1Q11 


ft ft 9 ft *» i 


1 

A 


uv4vvQ 


A 

Vf 


1 

A 


ft Oh A 




RE.NRN 


yGET ERROR CODE 


1912 


002052 


1 


064051 


3 


2 


02 11 


MOVB 


MPECR 


JL0AD IT 


1913 


002053 


1 


002000 





1 


000 


LDBR 





ICLEAR STATUS BYTE REGISTER 


1914 


002054 


1 


064231 


3 


2 


11 11 


MOVB 


STBYTE 




1915 


002055 


1 


002160 





1 


160 


LDBR 


MPERR+ILF+0CC 


fSET ILF TO SET EXC WITH CLASS B ERROR 


1916 


002056 


l 


064031 


3 


2 


01 11 


MOVB 


MPSCRi 




1917 


002057 


l 


002266 





1 


266 


JUMP 


RPTERR 


} REPORT THE ERROR 


1918 


002060 


t 


161611 


7 





3 10 It 









1919 
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1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 
1929 
1930 
1931 
1932 
1933 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
1945 
1946 
1947 
1948 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 



SUBTTt INTERRUPT HANDLER 

j AN INTERRUPT HAS BEEN DETECTED 

J FIND THE INTERRUPTING CONDITION AND RESPOND AS FOLLOWS! 

f IF A DATA PARITY ERROR - RETURN 

; IF NOT - ABORT OPERATION AND REPORT ERROR 



A A 1 A £ 4 

002061 


4 

1 


132017 


5 


IS? 

5 


00 17 


INTRPTJ 


DATI 


IOSEL, ACO 


;SAVE I/O SELECT REGISTER 


002062 


1 


122016 


5 


1 


00 16 




DAT! 


MPSTAT,BR 


; READ INTERRUPT STATUS REGISTER 


002063 


1 


104075 


4 


2 


0075 




JMPBO 


INTONO 


SJUMP IF INTERRUPT ON INTERFACE 


002064 


1 


014000 





6 


000 




SHR 




;SHIFT INTt TO BRO 


002065 


1 


104102 


4 


2 


0102 




JMPBO 


INTON1 


lJUMP IF INTERRUPT ON INTERFACE 1 


002066 


1 


014000 





6 


000 




SHR 






OVZ067 


1 


4 f\ A 4 4 C 

104115 


4 


2 


0115 




JMPBO 


INTQN2 


;JUMP IF INTERRUPT ON INTERFACE 2 


002070 


1 


014000 





6 


000 


IGN2; 


SHR 






002071 


1 


104131 


4 


2 


0131 




JMPBO 


INTQN3 


f JUMP IF INTERRUPT ON INTERFACE 3 


002072 


1 


062010 


3 


1 


00 10 


IGN3: 


MOV 


AC0,8R 


1 RESTORE I/O SELECT 


002073 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 


t REGISTER 


002074 


1 


016000 





7 


000 




RETURN 




f RETURN 


002075 


1 


002011 





1 


on 


INTONOs 


LDBR 


MB 


I SELECT MASSBUS INTERFACE 


002076 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 


002077 


1 


002110 





I 


110 




LDBR 


F.INTO 


|GET ERROR C00E# THERE IS NOT HARDWARE 


002100 


1 


064051 


3 


2 


02 11 




MOVB 


MPECR 


1 THAT CAN SET INTO 


002101 


1 


100106 


4 





0106 




JMp 


HALT 


J HALT THE MICRO-PROCESSOR 


002102 


1 


002011 





1 


Oil 


IN TON It 


LDBR 


MB 


/SELECT MASSBUS INTERFACE 


002103 


1 


066371 


3 


3 


17 It 




MOVB 


IOSEL 


002104 


I 


002070 





1 


070 




LDBR 


F.FAIL 


;GET ERROR CODE 


002105 


1 


064051 


3 


2 


02 11 




MOVB 


MPECR 


;LOAD INTO REGISTER 


002106 


1 


002100 





1 


100 


HALTS 


LDBR 


SPRES 


? RESET THE STACK POINTER 


002107 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 




002110 


1 


002011 





1 


Oil 




LDBR 


MB 


1 RE-SELECT THE MASSBUS INTERFACE 


002111 


1 


066371 


3 


3 


17 it 




MOVB 


IOSEL 




002112 


1 


002102 





1 


102 




LDBR 


MPERR+CLRGO 


>SET ERROR FLAG 


002113 


1 


064031 


3 


2 


01 11 




MOVB 


MPSCR1 




002114 


1 


016000 





7 


000 


NRTNlt 


RETURN 




f HALT THE MICRO-PROCESSOR WITH A STACK UNDERFLOW 
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i Q£A 
X y o v 




X 


A AO AOO 


A 


1 
A 





022 


1 OA 1 


A AO 1 1 £ 


Jl 


Aftft 1 7 1 




3 





17 11 


1 QfsO 

* 7w* 


AO 1 1 7 


4 
1 


A A A A 


4 
X 


X 





00 00 




A A0 1 OA 

v V M» X 4* v 


4 


1 A41 9** 


4 


2 


0125 


1 Q64 

X jr v "f 


0A91 01 


1 

* 


4& A V * 




1 
* 





00 16 




0A91 *>*> 


1 
* 


1 4 A A 





fi 





000 


X TOO 


AAO 101 


4 

Jl 


A 1 4 A A A 


A 







000 


1 Q67 


AAO 1 04 


1 

X 


1 A A A7 A 


4 

** 


A 


0070 


1 7vv 
















1 Q^Q 
















1 070 
















1971 


002125 


1 


002007 





1 





007 


1972 


002126 


1 


0720U 


3 


5 





00 11 


1973 


002127 


1 


002351 





1 





351 


1974 


002130 


1 


161211 


7 





2 


10 11 


1975 

















f INTERRUPT IS PRESENT ON INTERFACE 2 

IMT0H2: LDBR DP 

M0VB IQSEL 

DATI REG0,BR 

JMpBO INT2PE 

DATI MPSTAT,BR 
SHR 
SHR 

JMP IGN2 
j INTERRUPT WAS A DATA PATH MICRO-BUS 

INT2PEI LDBR NRE.DP 

MOVB ACO 

JUMP RESET1 



; SELECT THE DATA PATH 

;READ ERROR REGISTER 

?JUMP IF MICRO-BUS PARITY ERROR 

f READ INTERRUPT STATUS AGAIN 

| INTERRUPT MUST BE DATA - PARITY ERROR 

/CONTINUE LOOKING FOR FATAL ERRORS 



PARITY ERROR 

I GET ERROR CODE 

JSAVE IN ACO 

/RESET THE DEVICE FIRST 
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1976 














; INTERRUPT IS 


PRESENT ON INTERFACE 3 


1977 
















1978 


002131 


1 


002033 


o 


1 


033 


INTON3J LDBR 




1979 


002132 


1 


066371 


3 


3 


17 11 


MOVB 


IQSEL 

* Win* ***<M 


1980 


002133 


1 


022000 


1 


1 


00 00 


DAT I 


CSROjBR 

mm rnTt im J mm *n 


1981 


002134 


1 


106145 


4 


3 


0145 


JMPB4 


INT3PE 


1982 


002135 


1 


014000 





6 


000 


SHR 




1983 


002136 


1 


014000 





6 


000 


SHR 




1984 


002137 


1 


106151 


4 


3 


0151 


JMPR4 


TIMED 

jb, <*» ?*i <i* w 


1985 


002140 


1 


022005 


1 


1 


00 05 


DATI 


TAGIN1 ,BR 


1986 


002141 


1 


014000 





6 


000 


SHR 




1987 


002142 


1 

* 


014000 


o 


6 


000 


%} ** 




1988 


002143 


1 


106155 


4 


3 


0155 


JNP84 


DISCON 


1989 


002144 


1 


100072 


4 





0072 




IGN3 

* w >«# 


1990 


















1991 














t INTERRUPT IS 


MICRO»BUS PARITY FRRtlR 


1992 














1993 


002145 


1 


002027 





1 


027 


INT3PE* LDBR 


NRE.CP 


1994 


002146 


1 


072011 


3 


5 


00 11 


MOVB 


ACQ 


1995 


002147 


1 


002351 





1 


351 


JUMP 


RESETl 


1996 


002150 


1 


161211 


7 





2 10 11 






1997 


















1998 














t INTERRUPT HAY 


BE A HANDSHAKE TTMFVfHJT 


1999 


















2000 


002151 


1 


002047 





1 


047 


TXMEOt LDBR 


NRE.T0 


2001 


002152 


1 


072011 


3 


5 


00 11 


MOVB 


ACQ 


2002 


002153 


1 


002351 





1 


351 


JUMP 


RESETl 


2003 


002154 


1 


161211 


7 


o 


2 10 11 

mm <#• V «t * 






2004 


















2005 














f DEVICE ASSERTED DISCONNECT IN 


2006 


















2007 


002155 


1 


002067 





1 


067 


DISCONi LDBR 


NRE.DC 


2008 


002156 


1 


072011 


3 


5 


00 11 


MOVB 


ACQ 


2009 


002157 


1 


002351 





1 


351 


JUMP 


RESETl 


2010 


002160 


1 


161211 


7 





2 10 11 






2011 



















7 SELECT CHANNEL INTERFACE 

| READ STATUS REGISTER 

UUMP IF MICRO-BUS PARITY ERROR 

ISHIFT TIME-OUT FLAG TO BR0 

UUMP IF TIME-OUT INTERRUPT 

; READ TAG IN LINES 

| SHIFT DISCONNECT IN LINE 

; TO BR4 

; JUMP IF SET 

f RETURN IF DATA PARITY ERROR 



I GET ERROR CODE 
J SAVE IT IN ACO 
I RESET THE DEVICE FIRST 



J GET ERROR CODE 

fSAVi IN ACO 

f RESET THE DEVICE FIRST 



I GET ERROR CODE 
JSAVE IT IN ACO 
jRESET THE DEVICE 



DXMCA 

DXMCA 
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MAC 



23-Sep-81 15820 



COMPLETE CLEAN-UP ROUTINE 



2012 
2013 
2014 
2015 



SUBTTL COMPLETE CLEAN-UP ROUTINE 

jCHECK THAT THIS CODE IS LOADED IN THE CORRECT HARDWARE 



*UlO 


002161 


t 


009*00 

W U J V v 


o 


i 


*00 


I* Li c* i * *j v • u %j n 


TNIT+SPRFS 

J, <t J. iTyrnbu 


{INITIALIZE THE 0X20 


201 7 


0091 69 


i 


0&&17 1 






17 11 


MOVR 


IOSPIi 


f AND THF STACK POINTER 


* V* V 


002163 


1 


00201 1 





1 
* 


Oil 




MB 


f SELECT THE MASSBOS INTERFACE 


* V # 7 


0021 64 


1 


066171 




3 


17 11 


MOVB 


IOSEL 


f IN I/O SELECT REGISTER 


2020 


002165 




001004 


o 


o 


2 004 


LDMAR 


DRVTYP&377 


; SELECT DRIVE TYPE CODE 


2021 


002166 


1 


000400 








1 000 


LDMARX 


DRVTYP.-8 


;REQUIRED BY THIS MICRO-CODE 


2022 


002167 


1 


032003 


1 


5 


00 03 


DATI 


MPDTR, ACO 


;READ DRIVE TYPE REGISTER 


2023 


002170 


1 


040017 


2 





00 17 


OSM 


ACO 


^COMPARE WITH REQUIRED TYPE 


2024 


002171 


1 


114173 


4 


6 


0173 


JMPZ 


.♦2 


;SKIP IF A MATCH 


2025 


002172 


I 


101677 


4 





1677 


JMP 


WRONGD 


;NQ, WRONG DRIVE TYPE 


2026 


002173 


I 


033404 


1 


5 


3 00 04 


DATI 


MPHVR,ACO,I 


;READ HARDWARE VERSION REGISTER 


2027 


002174 


I 


040017 


2 





00 17 


OSM 


ACO 


! COMPARE WITH REQUIRED VERSION 


2028 


002175 


1 


114177 


4 


6 


0177 


JMPZ 


. + 2 


fSKIP IF A MATCH 


2029 


002176 


1 


101677 


4 





1677 


JMp 


WRONGD 


/ NO, WRONG HARDWARE VERSION 



2030 
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2031 
















! RESET 


THE MAS8BUS INTERFA 


2032 






















2033 


002177 


1 


002000 





1 





000 




yMOn 


n 

V 


2034 


002200 


i 


064231 


3 


2 





11 11 








2035 


002201 


i 


064211 


3 


2 





10 11 




MOVE 


STINDX 


2036 


002202 


1 


064251 


3 


2 





12 11 




MOVE 


OR 


2037 


002203 


t 


064271 


3 


2 





13 11 




MOVB 


MODE 

f*| W »«f Swt 


2038 


002204 


i 


064331 


3 


2 





15 11 




MOVE 


SPARE 


2039 


002205 


i 


064371 


3 


2 





17 11 




MOVB 


FLAGS 


2040 


002206 


i 


064351 


3 


2 





16 11 




MOVB 


A * & O Jt 4 


2041 


002207 


1 


066031 


3 


3 





01 n 




MOVB 


ASYCST 


2042 


002210 


i 


066011 


3 


3 





00 11 




MOVB 




2043 


002211 


i 


066071 


3 


3 


o 


03 11 




MOVB 




2044 


002212 


i 


066051 


3 


3 


o 


02 11 




MOVB 


TNT L 


2045 


002213 


i 


066131 


3 


3 





05 11 




MOVB 


YSTAT0 


2046 


002214 


i 


066111 


3 


3 


o 


04 11 




MOVB 


A J. If A * 


2047 


002215 


1 


066171 


3 


3 





07 11 








2048 


002216 




066151 


3 


3 





06 11 




MOVB 


XSTAI3 


2049 


002217 


1 


002120 





I 


o 


120 




LDBR 


EXS I ZE 


2050 


002220 


i 


064311 


3 


2 


o 


14 11 




MOVB 


D0MPS2 


2051 


002221 


1 


002002 





1 


o 


002 




LDBR 


CLRGO 


2052 


002222 


i 


064031 


3 


2 





01 11 




MOVB 


MPSCR1 


2053 






















2054 
















f ROM THE DIAGNOSTICS 


2055 






















2056 


002223 


1 


001002 








2 


002 




LDMAR 


TSTADR 


2057 


002224 


i 


010000 


o 


4 





000 


RERUN t 


L0MEM 


QNCDGT&377 


2058 


002225 


i 


002000 





1 





000 


DLOOP; 


LDBR 





2059 


002226 


1 


072171 


3 


5 





07 11 




MOVB 


AC7 


2060 


002227 


1 


042011 


2 


1 





00 1 1 




M0VMEM 


BR 


2061 


002230 


i 


001000 








2 


000 




LDMAR 





2062 


002231 




000400 








1 


000 




LDMARX 





2063 


002232 


i 


177631 


7 


7 


3 


11 11 




JMPSUB 


?BR, ONCOST 


2064 


002233 


i 


001001 

W v J0fr- v ^ 








2 


001 




LDMAR 


DFLAGS 


2065 


002234 


i 


043411 


2 


1 


3 


00 11 




MOVMEM 


BR, I 


2066 


002235 


i 


014000 





6 





000 




5HR 




2067 


002236 


i 


104225 


4 


2 


0225 




JMPBO 


0LOQP 


2068 


002237 


i 


052011 


2 


5 





00 11 




MOVMEM 


AC0 


2069 


002240 


i 


070003 


3 


4 





00 03 




INC 


AC0,MEM 


2070 


002241 


1 


100225 


4 





0225 




JMP 


DLQQP 


2071 
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/GET ZERO DATA 

; CLEAR STATUS BYTE 

;CLEAR STATUS INDEX 

/CLEAR DRIVE NUMBER 

; CLEAR DRIVE MODE COMMAND 

; CLEAR SPARE WORD 

t CLEAR FLAG REGISTER 

? CLEAR TRACK"IN-ERR0R BYTE 

/CLEAR ASYNC STATUS 

/CLEAR ASYNC DRIVE NUMBER 

; CLEAR BYTE COUNTER 

/ LOW ORDER BITS, TOO 

; CLEAR EXTENDED STATUS REGISTERS 



/SET Up SIZE OF EXTENDED STATUS TABLE 
I LOAD REGISTER 

; CLEAR GO, ATTENTION AND ERROR 



f SET MAR TO DISPATCH ADDR ADDRESS 

# SET DISPATCH TABLE ADDR 

; CLEAR ERROR NUMBER REGISTER 

/PUT DISPATCH ADDR IN BR 

/ RESET MAR 

; CLEAR MAR EXT BITS 

/GO RUN DIAG TEST 

/SET ADDR OF FLAGS 

; GET FLAGS INTO BR 

/RIGHT ADJUST LOOPING ON ERROR BIT 
/REPEAT TEST IF LOOPING 
/GET DISPATCH ADDR 
?INC IT AND RESTORE IT 



DXMCA 
OXMCA 
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20 / 2 
















JiUrCW X fi & UA4V 


ON-LINE 






20 / 3 
























2 I % 




I 


A A O A 1 1 


A 


4 

X 


A 

V 


All 
V *J J 


^ u w u ir # yUDn 


CHN 




s SELECT CHANNFL INTERFACE 


20 1 o 


A A O O A 1 


X 


A ftft 171 


3 


Jl 


A 

V 


17 11 

X / XX 


Wwl ID 


IOSEL 






2 / 


O0224** 


X 


A AO A A 1 


A 

V 


1 

X 


A 


A A 1 


U & l\ 


ONLINE-fCHANL 




20 / # 


O 2 2 4 D 


A 

X 


Aft A A 1 1 







A 

V 


A 1 11 

v X X 1 




CSR1 




sFMABLK CHAMMFL BUS DRIVERS 


O A7 ft 
2 / IS 


A AOO Aft 


X 


A A O O A A 


A 


1 

X 


A 


OA A 

4t V V 


LD8R 


0PL0UT 




t GET OPERATIONAL OUT 


onto 

2 U /7 


A AOO A7 


1 
I 


Aft A A7 1 







A 

V 


A 1 11 

XX 


M0VB 


TORI 




• RRTNfZ UP THE SUR-SYSTEM 


A A O A 

20oO 


002250 


1 


A A O A A A 


A 




4 

X 


A 

V 


AAA 
040 


LDBR 


MTR0UT 








A AlOft 1 
v O 2 2 1> X 


4 
X 


Aft A A 1 

V O U 3 X 


3 





A 
V 


AO 1 1 

O/ XX 


MOVE 


TOR0 






/ u oz 
























O Aft 1 
















jTURN OH THE DATA PATH 


forihattfr clock 






























A AOO«iO 


X 


A AO AOO 


w 


1 


A 


V 4 4(5 




np 




f SELECT THE DATA PATH 

£*^fi»i#ii#v«k i^f»#ft ^ ^ iir n 


20oD 


00225) J 


4 

X 


Aftft 17 4 
000 J / X 


3 




A 

u 


17 4 1 

1 / XX 




XUOC/U 






ivo / 


A A O O - R A 




A AO A AO 


A 
U 


1 
X 


A 

V 


A A O 
00/ 


X*Uf!m 






1 G<t^OyCi X"|U VXlWVtN 




A AOO*5*5 


X 


A ft A A 11 


3 



A 


A 

U 


A 1 11 

ox XX 


m y v 


PIT/11 






1AQQ 

20o V 
























20:f0 
















j CLEAR EXTENDED 


STATUS 






























O AO O 


A AOOKft 


4 

1 


A AO 1 1 O 


A 
V 


4 

X 


A 


110 


G0SUB 


CLRSNS 




f CliFAR THF KFI^ISF RYTF AREA 




A A O O R 7 
OU/4CD / 




1 77ft 1 1 
X / full 


7 


7 


3 


1 A 11 

X v XX 










/ V V # 


A a O O ft A 


X 


A A 1 1 n A 

M v X X vi *t 


A 


ft 


2 


104 


LDMAR 


STAT 




f SFf.FCT MFMHRY ADftRFSS 


2QVD 


O 2 2 O I 


X 


A A O A ft K 
V O 2 O D 


A 


1 





065 


LDBR 


INTDRV- 


* & X 14 X 






A AOOftO 


4 

X 


A 7 O A 1 1 
V / X v X X 


3 


c 

■vJ 





00 11 


M0VB 


AC0 




? TO CLFAR 




A AOOft 1 


4 

X 


A 1 1 AAA 
V X X Tft 


ft 


A 


3 


000 


LDMEM 


0,1 




fCLFAR FACH LOCATTOM 




A A O O ft A 


4 

X 


A 7 A A 7 









00 07 


DECR 


ACQ 






A§0 

,c v y 


A A O O ft 15 


X 


1 1 O Oft 1 


A 


IE 


0263 


jmpc 


• -2 






4 X wv 
























2101 


002266 


1 


102061 


4 


1 


0061 


JMPI 


INTRPT 




?CHiCK ON INTERRUPTS 


2102 
























2103 


002267 


1 


002026 





1 





026 


JUMP 


IDLE 






2104 


002270 


1 


160211 


7 








10 11 










2105 

























DXMCA 

DXMCA 
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2106 ?*TEST THAT JMPZ CAN JUMP CONDITIONALLY ON THE Z BIT 

2107 



2108 


002271 


1 


000000 





o 


000 


DTST01 


NOP 






2109 


002272 


1 


115623 


4 


6 


1623 




JMPZ 


DERR0 


J-8HOULD NOT JUMP 


2110 


#v *% rife «*fc #J* 

002273 


1 


002377 





1 


377 




LDBR 




;SET Z 


2111 


002274 


1 


114276 


4 


6 


0276 




JMpZ 


•+2 


fSKIP OVER HALT 


2112 


002275 


1 


101622 


4 





1622 




UMP 


DERR1 


f REPORT JTRRflR 


2113 
2114 


002276 


1 


016000 





7 


000 




RETURN 




2115 














;*SELECT MEMORY 


ADDRESS 0. 




2116 
2117 














•♦CHECK 


ON OSB 


INST RUCTION 




2118 


002277 


1 


ootooo 





o 


2 000 


DTSTI 1 


LDMAR 


o 


f SELECT MEMORY LOrATIOW O 


2119 


002300 


1 


000400 








1 000 




LDMARX 





2120 


002301 


1 


002000 





1 


000 




LDBR 





J PUT A ZERO IM BR 


2121 


002302 




072011 


3 


5 


00 11 




MOV ft 


AC0 


fPUT A ZERO IN AGO 


2122 


002303 


1 


070017 


3 


4 


00 17 






AC0#MEM 

*f jP * * *»# * * 


f COMPARE m PUT RESULT IN MEMORY 


2123 


002304 


1 


114306 


4 


6 


0306 




W tr m 


*+2 


sRESULT SHOULD HAVE RFEM «1 


2124 


002305 


1 


101621 


4 





1621 




JMP 

V ™ IT 


DERR2 

M ****** m 


; REPORT ERROR 


2125 


002306 


1 


002377 





1 


377 




LDBR 


-1 


;PUT A -1 INTO BR 


2126 


002307 


1 


070017 


3 


4 


00 17 






AC0,MEM 


? COMPARE, PUT RESULT IN MEMORY 


2127 


002310 


1 


115620 


4 


6 


1620 




V I'» IT *W 


DERR3 


; RESULT SHOULD NOT HAVE BEEN •! 


2128 


002311 


1 


072011 


3 


5 


00 11 




MQVB 


AC0 


IMOVE ONES FROM BR TO AC 


2129 


002312 


1 


070017 


3 


4 


00 17 




GSR 


AC0.MEM 


1 COMPARE. PUT RESULT IN MFMO&Y 


2130 


002313 


1 


114315 


4 


6 


0315 




JMPZ 




tRESULT SHOULB RE •! 


2131 


002314 


1 


101617 

tpr >* i#k W T 


4 





1617 






DERR4 


1 REPORT ERROR 


2132 
2133 


002315 


1 


016000 





7 


000 




RETURM 




2134 
2135 
















.imp ni\f 


BR BIT CONDITIONS 




2136 


002316 


1 


002001 





1 


001 


nTST^ f 

V ■*,' * £t * 




I 

* 


•SET BR BIT 


2137 


002317 


1 


104321 


4 


2 


0321 

\f H0 M» S> 




JMPB0 




f JMP OH BR BIT 


2138 


002320 


J 


101616 


4 





1616 




JMp 


DERR5 


1 REPORT ERROR 


2139 


002321 


1 


002376 





1 


376 




LDBR 


376 


•SET ALL BUT BIT 


2140 


002322 


1 


105615 


4 


2 


1615 




JMPB0 


0ERR6 

w *Tt 'JtTt %jF 


f JMP OM BIT ZERO 


2141 


002323 


1 


002020 





1 


020 




LDBR 


20 


•SET BR BIT 4 


2142 


002324 


1 


106326 


4 


3 


0326 




JMPB4 


* 4*2 


f JMP OM BIT 4 


2143 


002325 


1 

* 


101614 


4 





1614 




JMP 


DERR7 


| REPORT ERROR 


2144 


002326 


* 


002357 





1 


357 




LDBR 


357 


fSET ALL BUT BIT 4 


2145 


002327 


i 


107613 


4 


3 


1613 




JMPB4 


DERR10 


?JMP ON BIT 4 


2146 


002330 


i 


002200 





1 


200 




LDBR 


200 


JSET BR BIT 7 


2147 


002331 


i 


110333 


4 


4 


0333 




JMPB7 


.+2 


IJMP ON BIT 7 


2148 


002332 


i 


101612 


4 





1612 




jmp 


DERRil 


? REPORT ERROR 


2149 


002333 


i 


002177 





1 


177 




LDBR 


177 


f SET ALL BUT BIT 7 


2150 


002334 


i 


111611 


4 


4 


1611 




JMPB7 


DERR12 


?JMP0M BIT 7 


2151 


002335 


i 


016000 





7 


000 




RETURN 





2152 



\ 
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0SM INSTRUCTION 


2154 

A- * TK 




















9155 


002336 


1 

* 


002377 





1 

A 


377 


U A V# A • 


LDBR 

At w br *i 


•1 


21 56 


V *.# A* •# ^ f 


1 


072011 


3 


5 


00 11 

V W XX 




MOVB 


ACQ 

V v 


21 57 


9 340 

V V a» S *% V 


1 

JL 


01 0377 

V A V -J f f 





4 


377 




LDMEM 

U */ jri w f T i 


ml 


71 5ft 


009341 


1 

A 


04901 7 


At 


1 

A 


on 1 7 






4C0 .BR 


21 59 


002342 


1 
* 


1 14344 


4 


6 


0344 








2160 

* X V V 


002343 


1 

A 


101610 

A ** A %J A V 


4 





1610 






DERR13 


2161 


009344 


| 
A 


1 0000 

V A V \J V/ V 





4 


000 




LDMEM 





21 62 


002345 


1 
X 


042017 


2 

A« 


1 

X 


00 17 

V V V A f 




W ff 


ACQ .BR 


2163 


002346 

V V #6» *«r T» V 


1 

A 


1 15607 


4 


6 


1 607 

A M Vr 






DERR14 


21 64 


002347 


1 
* 


016000 





7 


000 




RETURN 




2165 














^ ~ VOGiiV>»> 


in W ¥ ?~ EU 


IMSf RUCTION 


21 66 

At A M V 




















2167 


0093*50 


1 


010377 





4 


O 377 


5*T4 1 


Iki i T t n 


*1 

w A 


9168 

4L A w P 


009351 

V V * «3 i? * 


1 

A 


05201 1 


2 

A 


5 


00 1 1 

V V V A A 




MOVMFM 

|1 w » fn ij, m 


ACO 


2 1 69 


9 3 *S 9 


4 

X 


049017 

v 1 A V 4 f 


2 

A 


1 

A 


A A A % 7 

V VV A f 






A(*0 * RP 


9170 


0093*4 3 
v y 4 J 9 <9 


4 

A 


1 1 A 3 5 H 


4 


6 


A 11 fC fC 




»IMP7 


^♦2 


2171 

A> A / A 


009354 


1 

X 


101 606 

X V A V V W 


4 

tip 





1 606 






DERR15 


2172 


002355 


1 

A 


010022 





4 


029 

\* V At *» 




LDMEM 

A?* " * * ™* * * 


22 


2173 


009356 


1 

A 


05201 1 

V iJ At V X X 


2 


5 


00 1 1 

V V V X A 




MOVMEM 


ACO 


2174 


009357 


1 

A 


042017 


2 


1 

A 


00 17 




OSM 


AC0,»R 


2175 


002360 


1 

A 


114362 


4 


6 


0362 

V *jr v At 




JMPZ 


. + 2 


2176 


002361 


1 

X 


101605 

A ^ A V V 


4 





1605 




JMP 


DERR16 


2177 


002362 


1 
A 


016000 

V i W v V V 





7 


000 




RETURN 




2178 

A> A * w 




















2179 














j*CHECK 


INCREMENT FUNCTION 


2180 














j INCREMENT 377 


TO 


2181 




















91 ft 9 


002363 


1 

A 


010377 





4 


377 


0TST5I 


LDMEM 


377 


9183 


002364 


1 

A 


05201 1 


2 

A 


5 


00 1 1 

V V V A A 




MOVMEM 


ACO 


9184 


009 3^5 

v v * -3 w 3 


i 

A 


079003 


3 


c 

if 


OO 3 




I NCR 


ACO 


01 fit; 


u v 4 £ o v 


i 

A 


oo^noo 

vv4vvy 


A 

V 


1 

A 


U VVV 




LDBR 





2186 


002367 


1 


060017 


3 





00 17 




OSB 


ACO 


2187 


002370 


1 


114372 


4 


6 


0372 




JMPZ 


• + 2 


2188 


002371 


1 


101604 


4 





1604 




a MP 


DERR17 


2189 


002372 


I 


016000 





7 


000 




RETURN 




2190 
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f SET ALL BITS IN BR 

JPUT BITS IN ACO 

?SET ALL BITS IN MEMORY LOC 

ICOMPARE MEM WITH ACO , PUT RESULT IN BR 

; SHOULD JUMP 

I REPORT ERROR 

I LOAD ZEROS INTO MEMORY 

/COMPARE MEM WITH ACO, PUT RESULT IN BR 
; SHOULD NOT JMP 



I LOAD MEM WITH -1 

? MOVE FROM MEM TO ACO 

t COMPARE MEM AND ACO, PUT RESULT IN BR 

?SKIP IF COMPARED 

? REPORT ERROR 

; LOAD MEM WITH 22 

fMOVE FROM MEM TO ACO 

} COMPARE MEM AND ACO , PUT RESULT IN BR 
?SKIP IF COMPARED 
? REPORT ERROR 



I LOAD A 377 INTO MEM 

J MOVE TO ACO 

t INCREMENT ACO 

I SET UP EXPECTED RESULT 

J COMPARE BR AND ACO 

;SKIP IF COMPARED 

! REPORT ERROR 



DXMCA 
DXMCA 
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2191 

A <f A 














2192 














2193 














2194 














2195 


00237^ 


1 

A 


002000 


V 


1 

A 


000 

V V V V 


2196 


002374 


1 

* 


07201 1 

V 9 £> V A A 


3 


** 


00 


2197 


002375 


i 


072007 


3 


5 


00 


2198 


002376 




060017 


3 


o 


00 


2199 


002377 

V V 4* w f ' 


1 

A 


1 15603 


4 


6 

v 


1 601 


2200 


002400 

v v m* ~ \f v 


1 

A 


010377 





4 


377 


2201 


002401 


1 
A 


040017 


9 

■4* 





00 

V V V 


2202 

4* A V 4# 


002402 

V V A ~ V 45» 


i 


1 1 4404 


4 


6 


0404 


2203 


002403 


1 

* 


101602 


4 





1 602 


2204 


002404 


1 


016000 


o 


7 


000 


2205 














2206 














2207 














2208 

4* 4» V v 


002405 


1 


00 9177 




v 


A 


177 


2209 


002406 

V V 4* ™ V V 


i 

A 


072011 

V f A> V A A 


3 


«e 


00 

V VV 


2910 


002407 




079001 


1 




O Oft 

V VV 


2211 

4* A> A A 


00241 


1 
A 


112419 

A A At *T A A« 


4 


** 


041 9 

V* * A 


2212 


002411 

V V «« W A A 


A 


101601 


4 





1601 

A V V A 


2213 


002412 


A 


002000 

V V 4* V V " 





1 

A 


000 


2214 


002413 


I 
* 


1 12415 

A A m iE A k/ 


4 


5 


0415 


2215 


002414 


1 


101600 

A v 4 v V V 


4 


o 


1600 

A V V V 


2216 


002415 


1 


072003 


3 


5 


00 


2217 


002416 


1 

A 


113577 


4 


5 


1 577 

A W r f 


2218 

■m Mm * w 


002417 

M *.* 4* ^ A f 


1 
A 


002000 

w V#V »V 





1 

A 


000 

V V V V 


2219 


002420 

V V 0*: £j| V» 


1 


1 13576 


4 


5 


1576 


2220 

4* 4* 4* w 


002421 


1 
* 


072007 

V f A V V # 


3 


c 

ii# 


00 

V V V 


2221 

Aft** 


002422 

VV 4* ~ 45 4w 


1 
A 


1 12424 

A Aft****** 


4 




0494 


2222 


002423 


1 


101575 


4 





1575 


2223 


002424 


1 


072007 


3 


5 


00 


2224 


002425 


i 


113574 


4 


5 


1574 


2225 


002426 


i 


016000 





7 


000 


2226 















;*CHECK DECREMENT FUNCTION 



jDECREMENT TO -1 





DT8T6* 


LDBR 





11 




M0VB 


AC0 


07 




DECR 


AC0 


17 




0SB 


AC0 






.JMPZ 


n PP D D O A 

U si* w\ l\ 4} V 






U */ ri 


~* Jt, 


17 

A f 




UP™ 


aVTO 






M i" IT *V 


4.9 






.IMP 


nt* , op9i 

vR»aR4 a 






DFTHJ3M 










ITT . A CI 




rvT55T7 • 
yipl r • 




4 

* A 


1 1 

I A 






Avw 


1 

V ,3 






AlV 








ft/ 






.IMP 


ufuVkf*. £ 






y i/ iC? r\ 


H 

V 






v ^ 1* v 


* T45 






'IMP 
w ~ 


OFRR91 

MEeI\F\4fr 


01 












JMPC 


DERR24 






LDBR 









JMPC 


DERR25 


07 




DECR 


AGO 






JMPC 


.+2 






JMP 


DERR26 


07 




DECR 


ACO 






JMPC 


DERR27 






RETURN 
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;L0AD A INTO BR 

?M0VE TO ACO 

| DECREMENT ACO 

; COMPARE BR AND ACO 

?DECR SHOULD HAVE CHANGED ACO 

;SET UP EXPECTED RESULT 

? COMPARE MEM AND ACO 

;SKIP IF COMPARED 

?REP0RT ERROR 



I LOAD BR WITH -1 
?M0VE TO ACO 
/INCREMENT ACO 
;JMP IF CARRY SET 
t REPORT ERROR 

?L0AD BR WITH ZEROS, SHOULD fiOT CHANGE CARRY BIT 
?JMP IF CARRY STILL SET 
; REPORT ERROR 

! INCREMENT ACO TO A 1 , SHOULD CLEAR CARRY BIT 
;JMP IF CARRY SET 

; LOAD BR WITH 0, SHOULD NOT CHANGE CARRY BIT 

JJMP IF CARRY SET 

f DECREMENT ACO TO A 

?JMP IF CARRY IS SET 

J REPORT ERROR 

; DECREMENT ACO TO -1 

f JMP IF CARRY SET 
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9 9 27 

4 4 4 f 
















j*CHECK 


AC THROUGH 6 




9998 

4 4 4 C? 


























2929 

4 4 4 7 
















• PUT 




IN ACO 






7710 


























2911 

4 4 3 A 


002497 

V \f ■& *f * 1 


1 

a 


009000 


A 


A 


000 


fiTST S 


• 







zCLEAR BR 


9919 

443 i 


0094^0 


A 


079011 


1 


c 


00 


1 1 

A A 






MOV Pi 


ACO 

#4 V# V 


^MOVE TO ACO 


* / J j 


























9 9 % A 
















t PUT 




I IN kCi 






9913 

4 4*?*? 


























9236 


002431 


* 


062003 

V M 4w> V V *tP 


1 


1 

* 


A A A 

V V V 


y j 






TNT 
A ™ V 


ACO - 


lINCREMENT TO 1, PUT 


99 17 
4 43 f 


AAIAIO 
v v 4 ** 3 4 


4 
1 


07 9011 

v / 4 v Jr A 




c 


01 

v V A 


A A 






MDVR 

nw 1 


ACl 


•PUT THE 1 IN ACl 


70 18 


v V/ 4 "t «9 3 


1 
A 


060017 

V %* V V 3 J 


1 

3 





A 01 

v V A 


1 7 

A f 






uOJ5 


AC1 


•COMPARE BR AMD ACl 


4 4 a y 


V v 4 ** 3 


4 

A 


1 1 A Alft 
A A **** 3w 


A 


ft 


041ft 

v# Tl 3 w 










*9 
• T4 


t SKIP IF A MATCH 


9*> A A 
4 4*9 v 


a A9 a 

V vl 4 % 4> 9 


A 


1 1 3 7 1 

A v a 9 r 3 


A 





1573 












?REP0RT ERROR 


44*1 


























A9 

4 4%4 
















1 IT U A 


A 

H 


9 tn ar9 

4 A PI 14 v 4 






77 A % 

4 4 TK •? 


























O A A 


o A9 a ift 


i 

a 


0ft9021 


1 

3 


4 

A 


A A i 

v v A 


A 1 






A »" V» 


ACl .BR 


1 INCREMENT TO 2» PUT 


9943 


002417 


1 

* 


0720S1 


3 


5 

** 


09 
V v 4 


1 1 
A A 






M0VH 


AC2 

flv 4 


iPUT THE 2 IN AC2 


4 4 ** W 


002440 


1 

* 


060057 

VWVvv r 


1 





02 

v V 4 


1 7 
A f 






W V JO 


AC2 


iCOMPARE BR AND AC2 


994.7 

4 4 1 


009 A A 1 


1 

4 


1 1 A 4 4 1 

A A *f *« *f ^ 


4 


ft 


0441 








4 1MP7. 


+ 2 

t ~4 


•SKIP IF A MATCH 


994ft 
4 4 ** <? 


O A 9 A A 9 


1 

A 


101 379 

A U A *3 f 4 


4 

** 





1 372 

A / 4 








W ™ r 


hfrr 1 1 


{REPORT ERROR 


9940 


























993A 
443 V 
















» put 

J Jr v A 


h 


1 T M h C 1 

<3 A 111 Hv4 






9 931 


























9939 

4 4 9 4 


002441 


4 


062041 


1 

■*# 


4 

A 


09 

v V 4 


01 
v 3 






TNT 

A " v 


AC2 . ER 


flNCREMEJlT TO 3# PUT 




002444 




072071 

V # 4 V # A 


3 


*) 

*J 


A A 


1 1 
A A 






nvfO 


AC3 

V 3 


f PUT THE 3 IN AC3 


9934 


0094 AH 

V V 4 Tt 9 


4 

A 


ft 7 7 

V O V V t f 


3 





A A 1 


1 7 

A / 








ACl 

#» v J 


lCOMPARE AC3 AND BR 


4 A 9 *? 


009 A Aft 


4 
A 


1 1 AA30 


4 

■•at 


ft 


0430 

v *f J3» v 








JUD7 

W ™ It <w 


ft* 


f SKIP IF A MATCH 




A09 A A7 


A 


4 4 Kl i 


A 




v 


w / * 










1/ fit ft r\ a 4 


f RFPORT ERROR 


44 v r 










































• mil* 

1 ITU A 


A 

m 


A TM ATA 
































99ft0 

* * V v 


9 4 3 


4 

A 


0ft2061 

V V 4 V V 


3 


4 

A 


A 01 


A 1 






A « v 


ACl ftR 


llMCREMENT TO 4# PUT 




A A9 A«M 
V v 4 ^ a A 


4 

A 


0791 1 1 

V / 4 A A A 


1 


■i# 


A A A 


4 1 

A A 






pi w V O 


AC4 


fPUT THE 4 IN AC4 


99ft 9 


009A32 


4 
A 


Oft01 1 7 

V v v A A f 


1 

3 





A A A 


4 7 

A / 








ACA 

m \* Ht 


f COMPARE AC4 AND BR 


9 9 ft 1 
4 iO 3 


9 A 3 1 


4 

A 


1 1 A A3 3 

A A *t £ * v3 D 


A 


ft 


0433 

y 13 d 










A 9 
« T4 


f SKIP IF A MACTH 


9 9 ft 4 


00943A 

V V 4 9 *t 


1 

A 


101 370 

A V A r v 


4 

** 





1 370 








.IMP 


A tr 1? D 1 1 




4403 


























9 9ftft 
















;fy A 




9 Art #lv*# 






99ft7 


























44 vo 




4 
A 


OA9 101 




4 

A 


A A A 


A % 

V 3 






A W V 


ACA 

14 V% f oft 


flNCRFMENT TO 3. PUT 


99ft9 


009A3ft 


i 

A 


07 9111 

V f 4 A A 


1 


«: 


03 


1 1 

A A 






riM V 15 


&C3 

n v ^ 


fPUT THE 3 IN ACS 


999(1 


009A37 

V v 4 tI 3 / 


4 

A 


0601 17 

V v v A * 


1 

3 





03 


1 7 
A / 








AC3 
#* v* 5» 


^COMPARE ACS AND 8R 


999 1 
44 / I 


A A9 A J% A 


4 
A 


1 1 A Aft 9 
A A 


A 




A Aft2 
v*tP4 










A 9 
ft/ 


tSKTP TF A MATCH 

d ■ I\ A IT A #1, ™ #4 A V " 


9 *!! 9 9 
4 4 / 4 


A A 9 A A 1 


4 
A 


1 01 K ft 7 
A v A 95 / 


A 





1567 














9 971 

4 4 9 3 


























771 A 
















• POT 


& 

■r* 


ft Tiy ATft 






997*% 

4 4 r 


























997ft 


002462 


1 

A 


062123 


3 


1 

* 


05 


03 






INC 


ACS, BR 


S INCREMENT TO 6* PUT 


2277 


002463 


1 


072151 


3 


5 


06 


11 






M0VB 


AC6 


fPUT THE 6 IN AC6 


2278 


002464 


1 


060157 


3 





06 


17 






0SB 


AC6 


I COMPARE AC6 AND BR 


2279 


002465 


1 


114467 


4 


6 


0467 








JMPE 


,+2 


;SKIP IF A MATCH 


2280 


002466 


1 


101566 


4 





1566 








JMP 


DER835 


$ REPORT ERROR 


2281 



























) 
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2282 ?CHECK AC6 FOR 6 

2283 



2284 

m* 4V v TB 


002467 

V vf #w TE V f 


1 

Jo 


01 0006 

V A V v V W 


o 

V 


4 

TF 


006 




1/ m H 




• D II T h H T hi UtTIKIDV 

JrUi A p in nlflOKl 


228S 


002470 


1 

A 


040157 

"off Ti V J, V f 


2 





fits 


1 1 






AC6 




2286 


002471 


1 


114473 


4 


6 


0471 








-+2 




2287 


002472 


1 


101 **65 


4 




vF 












;SEP0RI ERROR 


2288 






















2289 
















J CHECK 


ACS FOR 


5 




2790 

Mr m* * V 
























2291 


002473 


1 


070147 


3 


4 


06 


07 




DEC 


AC6.MEM 

*ti >(• V 4 1 ™ Hi* » « 




2292 


002474 


1 


040137 


2 





05 


17 

A ' 




0SM 


ACS 


jCOMPARF WITH ACS 


2293 


002475 


1 


114477 


4 




OA7 1 






M r * IT A# 


4-7 


f 5i ^ T D TF & M A T r W 


2294 


002476 


1 


101564 


4 





A «? O ** 






J MP 


DERR37 


;REP0RI ERROR 


2295 






















2296 
















I w n d viv 


#% v t* run 


A 
** 




2297 
























2298 


002477 


1 


070127 


3 


4 


0** 


07 




DEC 


ACS .MFM 

rl V **f f Jrl Ift* 1" 


f DFCPFMFia f f t Tfl <1 DIIT TW Mli'M 


2299 


002500 


1 


0401 17 

V ~ M A A f 


2 

4n 





A Oil 


i *t 
% 1 




won 


rl Vt? 


• CHMDADtT WTf U Ar**A 
f vu?*i«rnf\C# Hi in ACt* 


2300 


002501 

V V M» *f V <ir 


1 

A 


1 14503 


4 

t? 


6 










4-7 




2301 


002502 

V V 4m %*r V 4E# 


1 


101563 


4 











JMP 


1/ C« |\ l\ Tf v 




7102 








































Hfi irn© 

run 






2304 
























2305 


002503 


1 

A 


070107 




4 


O (ML 


v / 




i/ *-» w 


AC4 . MFM 


fDFCPFMFNV Tfl 1 DOT Tftf MFM 


2306 


002504 

V V J* V* V ~ 


1 

A 


040077 







n oi 


A 7 

A f 






ACl 


tCflMPAPF yTTW ACl 


2307 


002505 


1 

A 


1 14507 

A A Tp %J V # 


4 


6 


A IS A*/ 






JMP 7, 


4r2 


• CICTO TIT A M A Tff*! 


2308 

4» J V v 


002506 


1 

A 


1 01567 


4 





1 t^o 






U "* Jr 


DFRRd 1 




2309 
























2310 
















•CHECK 


AC2 FOR 


2 




2311 

4* *2 A * 
























2312 


002507 

V V 4* *■# V f 


I 

* 


070067 


3 


4 

Tf 


O 01 


07 




DEC 

V w V 


&C1 - MFM 

#r> V «3» f ™ ™* 


tDFCPFMFiyiT Tfl A 2 PUT T U MFM 


2313 

4* A «•? 


002510 


I 

A 


040057 


7 
«* 





A A 7 


1 f 






&C7 


fCflMPAPF IrfTTHf AC7 


2314 


00251 1 


1 

* 


114513 

A A TP **P A ^ 


4 


6 


nm i 






JMPZ 


- 4*2 


fSKTP TF A MATCH 


2315 


002512 


1 
A 


1 01561 

A V A >? ** A 


4 











V It 


DFRR47 


f REPORf ERROR 


2316 
























2317 
















f v« fife V 




1 

A 




2318 

4> A 
























2319 


002513 

V Vr 4|» v' 4k' w 


1 

A 


070047 


3 


4 


07 


07 




DEC 

1/ s*« v 


AC2 .MEM 


tDECPFMFMT TO A 1^ POT TM MFM 


2320 

4* «H# A* V 


002514 


1 
A 


040037 

V ~ V V w f 


2 





01 

V V A 


i 1 
I f 






ACl 

r% V A 


f CfiMP APF WITH ACl 


2321 


002515 

V V 4fr A V 


1 


1 14517 


4 


6 


0517 






JMPX 

v ■"- 1 -tr 4Ui 




fSKTP TF A MATCH 


2322 


002516 


1 


101560 


4 





1 *%AO 






JMP 


¥&M Tf 




2323 






















2324 
















f CHECK 


AC0 FOR 







2325 
























2326 


002517 


1 


070027 


3 


4 


01 


07 




DEC 


ACl f MEM 


IDECREMENT TO A 0, POT IN MEM 


2327 


002520 


1 


040017 


2 





00 


17 




0SM 


AC0 


;C0HPARE WITH ACO 


2328 


002521 


1 


114523 


4 


6 


0523 






JMPZ 




;SKIP IF A MATCH 


2329 


002522 


1 


101557 


4 





1557 






JMP 


DERR44 


} REPORT ERROR 


2330 


002523 


1 


016000 





7 


000 






RETURN 







2331 
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2332 /*CHECK ADC INSTRUCTION 

2333 



9 114 


ft ft 9 9 4 

V VI 4& D 46 *t 


1 

I 


009 1 7fi 


ft 

VI 


1 





U * O I ft 




m7 

mm 4; 


/J *> 


ft ft 9 5 9 5 


A 


07907 1 


1 


5 






MOVE 


AC3 


2136 


009596 


I 

Ar 


072063 

V f 4S» V V «# 


1 


5 


03 03 




^ tf \n I.>. 


AC3 

n \i# v 


9117 


009597 

V VI 4> 4& f 


1 

Ir 


0&2ft64 

V V* V V*f 


1 


1 


ft 01 04 




a or 


AC3 .BR 




ft 095 1ft 


A 


114519 


4 


6 


0519 

V f ij 45 




V/ ' * fr 


♦ 2 




009*511 


1 


101556 


4 





1556 




W ' , * 


DERR4S 


9140 


ft ft 9 5 1 9 

V V * 9 J 4 


1 

ill 


079061 


1 


5 


01 01 




* * * v *^ 


AC3 


9141 

4 J> TP * 


ft ft 9 5 1 1 


1 


079064 

V / * v V7 *f 


1 


5 


ft ftl ft4 




AOCR 


AC3 


d. o** & 


ft ft 9 5 1 4 


* 


009ft0 1 


ft 




ft ftft 1 

V v v * 




LDBR 


t 


9141 


ft A 9 K 1 *5 


Ir 


ft 6 ft A 7 7 


1 


A 


ft ftl 17 




OSB 


AC3 


O 1 A A 


a A9«i i& 

V U 46 J 


i 

A 


1 1 A KA ft 


4 





(%K AA 




JMPE 


,+2 




ftft9S17 

V V 46 5 a r 


i 

A 


1 ft 1 55*i 

JL v J* 3 «3 9 


4 

** 


ft 


1 eee 

* ^3 >3 P 




UMP 


DERR46 




U U 46 9 v 


4 

A 


A 1 A A A A 
UlOvvv 


A 

V 


7 


A AAA 

U v V vl 




RETURN 




/ 4* r 




















7 14 ft 
















SHL INSTRUCTIOI 






















9150 

X «j g> v 


ft ft 9 5 4 1 


i 
A 


ftft9959 

V VI 4B> 45. £> 


ft 

vi 


1 


252 


nTSTi ft t 


LDBR 


252 


2151 


002542 

V Vr 4b. "SP .«# 


1 


0721 31 

V f 4E» * *# * 




5 


05 11 




MOVB 


ACS 


91*9 


ft ft 9 5 4 1 

V VI 4t 9 41 3 


A 


ft79 1 95 


1 


e 


ft 05 ft5 




SHLR 


ACS 


9151 


ftft9544 


1 

J. 


010124 


ft 


4 


ft 194 




LDMEM 


124 


2134 


002545 

V V |i V V 


1 


04Q1 17 


2 





05 17 




OSM 


ACS 


£, $ 9 53 


ftft9546 

V VI 45 £? *t W 


i 

A 


1 14550 


4 


6 


0550 




JMPZ 


.+2 


2156 


002547 

V V 4ft «*? f 


1 


101554 


4 





1554 




JMP 


DERR47 


2357 


002550 


1 


010125 





4 


125 




liDMEM 


125 


2358 


002551 


1 


052131 


2 


5 


05 11 




MOVMEM 


ACS 


2359 


002552 


1 


072125 


3 


5 


05 05 




SHIiR 


ACS 


2360 


002553 


I 


060137 


3 





05 17 




OSB 


ACS 


2361 


002554 


1 


114556 


4 


6 


0556 




a«pz 


.+2 


2362 


002555 


t 


101553 


4 





1553 




JMP 


DERR50 


2363 


002556 


1 


016000 





7 


000 




RETURN 





2364 
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jPUT A «2 INTO BR 
/MOVE TO AC3 

; INCREMENT TO -1 TO CLEAR CARRY BIT 
; ADD CARRY TO AC3 , PUT RESULT IN BR 
;SKIP IF RESULT WAS -1, CARRY WAS 

•REPORT ERROR 

/INCREMENT AC3 TO 0, SETS THE CARRY BIT 
? ADD CARRY TO AC3 

?SET UP BR WITH EXPECTED VALUE OF 1 
/COMPARE BR AND AC3 
/SKIP IF A MATCH 
/REPORT ERROR 



/LOAD 252 INTO ACS 

/SHIFT IT LEFT 
/SET EXPECTED DATA 
/CHECK FOR EXPECTED 
/JUMP IF SHIFTED OKAY 
/REPORT ERROR 
/LOAD 125 INTO ACS 

/SHIFT IT LEFT 
/CHECK FOR CORRECT DATA 
/JUMP IF SHIFTED OKAY 
/REPORT ERROR 



DXMCA • 
0XMCA 
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2365 
















2366 
















i* *9 V / 


v v <£ *7 9 # 


i 

* 


1 1 3 1 


V* 


A 





333 


2 368 


002560 


A 


0591 31 


2 


5 





05 11 


2369 


002561 


1 


002111 

V V £t Jr 1* Jt 




V 


1 

A 





111 


2370 


002*562 


1 

* 


072120 

V r £> A m V. 


3 


5 





05 00 


2371 


002563 


1 
a 


1 12565 


4 


5 

<** 


0565 


2372 


002564 


1 
* 


101552 


4 





1552 


2373 


v y * a w *? 


1 

X 


010 044 




V 


4 





044 


2374 

4m 3 f 


009*166 


4 


0401 37 


9 








05 17 


2375 


002567 


4 

4 


114 571 


4 


6 


0571 


2376 


002570 


1 

* 


101551 

A V A «J %/ A 


4 





1551 


2377 


002571 




016000 





7 





000 


2378 
















2379 

mm 9 «r 
















2380 
















2381 

* if V * 


002572 


1 


002 37 7 





1 

A 





377 


2382 


002573 


A 


072051 
v f *uai 


3 


5 





02 11 


2383 


002574 


1 

A 


072043 


3 


5 





02 03 


2384 


002575 


1 
* 


002333 

V V 4b *P %J 





1 

A 





333 


9385 


002576 


\ 

A 


07 9 041 

V f 4, V Tl A 


3 


5 





02 01 




009577 


A 


0091 34 


O 

V 


1 

A 





334 


2387 


002600 

V V/ 4E> V V* V 


1 


060057 

V V V *-* *J f 


3 




V 





02 17 


/.OOP 


A A 9 ft A <| 




1 1 AftOl 


4 
** 


A 

V 


0603 


2389 


002609 


1 


101 550 


4 





1550 


2390 


002603 


i 
A 


01 6000 

V A O V v V 




V 


7 

t 





000 


2391 
















2392 
















2393 
















2394 
















2395 
















2396 


009604 


1 

A 


0029S2 





1 

A 







2397 

<fe 4? ^ r 


002605 


1 

* 


01 4000 





6 





000 


2398 


002606 


1 

A 


010125 

V A V A 4* <*? 





4 





125 


2399 


002607 


1 


059151 


9 


5 





06 11 


2400 


00261 


i 

A 


060 1 57 










06 17 


2401 


002611 

v 4b v» 4» * 


A 


1 14613 


4 


6 


0613 


2402 

4V TF W 4w 


002612 


A 


101547 


4 





1547 


2403 
















2404 

4& *jf V TE 
















2405 
















2406 


00261 3 


4 
A 


014000 




V 


6 

V 





000 


2407 


002614 


i 

A 


010052 





4 





052 


2408 


002615 


1 
A 


0521 51 

V %f 4* A w A 


2 


5 





06 11 


2409 


002616 


1 


060157 


3 








06 17 


2410 


002617 


1 


114621 


4 


6 


0621 


2411 


002620 


i 


101546 


4 





1546 


2412 


002621 


1 


016000 





7 





000 


2413 

















;*CHECK ADB INSTRUCTION 

DTSTll: LDMEM 333 

M0VMEM ACS 

LDBR 111 

ADBR AC5 

JMPC ,+2 

JMP DERR51 

LDMEM 44 

0SM ACS 

JMPZ .+2 

JMP DERR52 
RETURN 

>*CHECK ADBC INSTRUCTION 

DTST12I LD8R -1 

M0VB AC2 

INCR AC2 

LDBR 333 

ADBCR AC2 

LDBR 334 

0SB AC2 

JMPZ ,+2 

JMP DERR53 
RETURN 

f *TE5T SHR INSTRUCTION 

fSHIFT A 252 RIGHT, CHECK 

DTST13I LDBR 252 
SHR 

LDMEM 125 

MOVMEM AC6 

0SB AC6 

JMPZ ,*2 

JMP DERR54 

iSHirt A 125 RIGHT, CHECK 
SHR 

LDMEM 52 

MOVMEM AC6 

0SB AC6 

JMPZ ,+2 

JMP DERR55 
RETURN 
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;SET DATA INTO ACS FOR ADD 

;SET OTHER DATA TO ADD 
; ADD 

;CARRY SHOULD HAVE SET 
; REPORT ERROR 
;SET EXPECTED SUM 
;CHECK IT 
/JUMP IF OKAY 
;REP0RT ERROR 



/LOAD BR WITH A -1 
JMOVE TO AC2 

; INCREMENT AC2 TO TO SET CARRY 

;L0AD BR WITH A 333 

? ADD BR AND CARRY TO AC2 

;SET UP BR WITH EXPECTED VALUE OF 334 

; COMPARE AC2 AND BR 

;SKIP IF A MATCH 

? REPORT ERROR 



RESULT OF 125 

I LOAD BR WITH A 252 

?SHIFT BR RIGHT ONE PLACE 

; LOAD MEM WITH EXPECTED RESULT 

;M0VE TO AC6 

/COMPARE RESULT IN BR WITH AC6 
JSKIP IF A MATCH 
I REPORT ERROR 

RESULT OF 52 

f SHIFT §R RIGHT ONE PLACE 

7 LOAD MEM WITH EXPECTED RESULT 

J MOVE TO AC6 

f COMPARE RESULT IN BR WITH AC6 
fSKIP IF A MATCH 
t REPORT ERROR 



DXMCA * DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRQ-CODE VERSION 4,7 
DXMCA MAC 23-Sep-8i 15s20 COMPLETE CLEAN-UP ROUTINE 



MACRO %53B<1155) 15*46 lS-Feb-82 Page 68 



2414 
2415 
2416 
2417 
2418 
2419 
2420 
2421 
2422 
2423 
2424 
2425 
2426 
2427 
2428 
2429 
2430 
2431 
2432 
2433 
2434 
2435 
2436 
2437 
2438 
2439 
2440 
2441 
2442 
2443 
2444 
2445 
2446 
2447 
2448 
2449 
2450 
2451 
2452 
2453 
2454 
2455 
2456 
2457 
2458 
2459 



002622 1 016000 7 000 



/♦CHECK LOGICAL INSTRUCTIONS 

? 1 103 C113 C123 THIS TEST WAS DELETED TO MAKE ROOM FOR THESE EDITS 

; AND 252 WITH 146# CHECK FOR RESULT OF 42 

DTST14I 
COMMENT 
DTST14S 



jXOR 



RETURN 






/C103 [113 C123 




% 

LDBR 


252 




/ LOAD BR WITH A 252 




MOVB 


AC2 




/MOVE TO AC2 




LDBR 


146 




;LOAD BR WITH A 146 




LANDB 


AC2 f MEM 




; AND AC2 WITH BR, PUT RESULT IN 


MEM 


MOVMEM 


AC3 




J MOVE RESULT TO AC3 




LDMEM 


42 




§ SET UP EXPECTED RESULT IN MEW 




OSM 


AC3 




iCOMPARE RESULT 




JMPZ 


.+2 




/SKIP IF A MATCH 




JMP 


DERR56 




/REPORT ERROR 




WITH 146, CHECK FOR 


RESULT OF 


356 




LORB 


AC2,MEM 




;OR AC2 WITH BR, PUT RESULT IN 


MEM 


MOVMEM 


AC3 




/MOVE RESULT TO AC3 




LDMEM 


356 




/SET UP EXPECTED RESULT IN MEM 




OSM 


AC 3 




/COMPARE RESULT 




JMPZ 


.+2 




/SKIP IF A MATCH 




JMP 


DERR57 




1 REPORT ERROR 




WITH NOT 146, CHECK 


FOR RESULT 


OF 273 




LORCB 


AC2 , MEM 




/OR AC2 WITH CO MP OF BR, PUT IN 


MEM 


MOVMEM 


AC 3 




/MOVE RESULT TO AC3 




LDMEM 


273 




/SET UP EXPECTED RESULT IN MEM 




OSM 


AC3 




/COMPARE RESULT 




JMPZ 


. + 2 




/SKIP IF A MATCH 




JMP 


DERR60 




/ REPORT ERROR 




WITH 


146, CHECK FOR 


RESULT OF 


314 





LXORB 

MOVMEM 

LDMEM 

OSM 

JMPZ 

JMP 

RETURN 



AC2,MEM 
AC3 
314 
AC 3 
.♦2 

DERR61 



|XOR AC2 WITH BR, PUT RESULT IN MEM 

/ MOVE RESULT TO AC3 

/SET UP EXPECTED RESULT IN MEM 

/COMPARE RESULT 

/SKIP IF A MATCH 

/REPORT ERROR 



% 
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9 AhO 














m ±f*UWPK 

J x viTiC#v lN 


u ui*Hr x u 




9 Aft 1 




















9 A&9 


09ft91 


4 

4. 


009000 





1 


o ooo 


U X £ X □ • 




A 

V 


9Aft 1 




4 

X 


V / £ v X X 


<» 

■J 


c 


O 00 ft 
v v v XX 




nwf D 


&ro 


Aft A 


A9ft9«! 


1 


X A wOj j 


A 


i 


A£ll 








9 A f%K 




















9 Af»ft 

A *ff V V 




















9 A67 


V V 4k w * w 


1 

X 


002177 





1 

X 


177 


O v O i X It i 




mi 
^ X 


O Aft Q 




1 

X 


A£AA1 7 
VOvVI / 




A 

V 


A A A 4 7 

v vU X / 






Ar* a 


9 AftQ 


v V * P J V 


X 


t 1 Aft 19 
X If 0«#4 


A 

** 


6 


Oft 19 

VPJ4 






+9 


9 A70 


Oft 96 1 1 


X 


101 *>41 

AVIDIA 


A 





1 S A 1 

X «/ X 






HFRRft9 


4 4 f I 


AAOA 
VV40j 


4 

X 


A 4 A A A 

UlOvvvi 


A 

V 


7 


A AAA 

u u uu 




K C* X v W 1M 




£*k f & 




















a% f a 


A A 9 A ** 1 
v V 4 O J J 


X 


90 00 

VV4VV VI 


O 

VP 


X 


O O AO 




Xil/t>rv 


O 


/4 / 3 


V V Z © $ ** 


4 

X 


A&AA4 *I 

UOvv X / 


3 


A 


A AA 1 *T 

V VV X / 




n C ti 


if A 
Av V 




V V4\> J3 


4 
X 




A 

*£ 


ft 


0617 

V w i# r 




,7M»7. 




9 A76 


009611* 

V V A W <•/ V 


1 


1 01S40 

i V i V 1 V 


4 





1 £40 

4- *J *x V 




V *™ IT 


fcS Kit I\ f\ w *# 


2477 


002637 


1 


002377 





1 


377 




LDBR 


-1 


2478 


002640 


1 


072011 


3 


5 


00 11 




M0VB 


ACO 


2479 


002641 


1 


016000 





7 


000 




RETURN 




2480 


002642 


i 


101537 


4 





1537 




JMP 


0ERR64 


2481 
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RETURN INSTRUCTIONS 

I LOAD BR WITH A ZERO 
J MOVE TO ACO 

;G0 TO SUBROUTINE WHICH SHOULD VERITY THAT ACO 

/CONTAINS A ZERO, THEN CHANGES IT 

J TO -1 BEFORE RETURNING 

t SUBROUTINE SHOULD RETURN HERE 

f COMPARE ACO WITH A -1 IN BR 

;SKIP IF ACO IS NOW A -1 

t REPORT ERROR 



;L0AD A ZERO INTO BR 
t COMPARE WITH ACO 
jSKIP IF ACO WAS ZERO 
I REPORT ERROR 
I GET A -1 
?PUT IT INTO ACO 
y RETURN TO SUBT1R 
/REPORT ERROR 
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4* ** w 4b 














?*CHECK THAT STATUS REGISTER 


CAM BE READ 


2483 




















2484 














; CLEAR THE Z BIT, CHECK FOR 


2 BIT TO BE CLEAR IN STATUS REGISTER 


2485 

a, *t w *j 




















2486 


002643 

v v it v ~ J 


1 


002000 


o 


* 


000 


DTST16 S LDRR 





fCLEAR THE BR 


2487 


002644 


1 


122016 


5 

%F ' 


1 
* 


00 16 


DAT T 


n r s> a * f o f\ ■ 


iREAD THE STATUS REGISTER 


2488 

m* Tf w v 


002645 


1 


014000 


o 


6 


000 






jSHIFT THE BR RIGHT 


2489 


002646 


J 


107536 


4 


3 

** 


1536 


V » ? fr -«wF TF 


DERR65 


lJUMP IF Z BIT IS SET 


2490 

4fc «* 3f V 




















2491 

45 TS 7 * 














fSET THE Z BIT, 


CHECK TOR 2 


BIT TO BE SET IN STATUS REGISTER 


2492 

4* Tit «■» 




















2493 

45 Tf «r 


002647 


1 


002377 





l 


377 


LDBR 


-t 


iLOAD BR WITH A *1 TO SET Z BIT 


2494 


002650 


1 


1 22016 

* 4r 4b V * w 


5 


1 

* 


00 16 


DATI 


MPSTAT,BR 


fREAD THE STATUS REGISTER 


2495 


002651 

V v 4S» V %ir * 


1 


014000 

VF 4k TE V/ V V 





6 


000 


SHR 




: SHIFT THE BR RIGHT 


2496 

*Tir V 


002652 

V V 4c V ««f m 


1 


106654 

4V V V w w ~ 


4 


3 


0654 


JMPB4 


•+2 


fSKIP IF Z BIT IS SET 


2497 

46 ** J? # 


002653 


1 


101535 


4 





1535 


U«P 


DERR66 


rREPGRT ERROR 


2498 

4ft Tf ^ O 




















2499 














f CLEAR THE CARRY BIT, CHECK 


FOR TARRY TO BE CLEAR IN STATUS REGISTER 


2**00 

45 ;J V v 






















002654 


1 


002000 

V V l» V v V 


A 

V 


1 


000 

V v v v 


LDBR 





fif*OAD RP WITH 


OC AO 

46 <3 V 45 


003&55 
v V 45 *•? 9 


1 


07 251 1 
vf4v»* 


3 


5 


00 1 1 


M0VB 


ACO 


;M0VE TO ACO 




A A ft 6 




06000 3 

V y V v v j 


3 





ft 00 03 


INC 


ACO 


f INCREMENT ACO TO CLEAR THE C BIT 


2504 


002657 


1 


122016 

* A 4* v # v 


5 


1 

* 


00 16 


DATI 


MPSTAT,BR 


I READ THE STATUS REGISTER 


2S0S 


002660 

V v* 4* V W V 




107534 


4 

TP 


3 


1534 


JMP84 


DERR67 


?JUMp IF C BIT IS SET 


2506 

4b ^ V w 




















2507 

4b n* V F 














;SET THE CARRY 


BIT, CHECK FOR CARRY TO BE SET IN STATUS REGISTER 


2508 




















2S09 


002661 


1 
* 


002377 





1 


377 


LDBR 


-t 


; LOAD BR WITH -1 


251 


002662 


1 

* 


072011 


3 


5 

wF 


00 11 


M0VB 


ACO 


JMOVE TO ACO 


2511 

4* I? * 4» 


002663 


1 

4b 


060003 

VVV V 


3 


o 


00 03 


INC 


ACO 


; INCREMENT ACO TO SET C BIT 


2512 


002664 


1 


122016 


5 


1 


00 16 


DATI 


MPSTAT, BR 


;READ THE STATUS REGISTER 


2513 


002665 


1 


106667 


4 


3 


0667 


JMPB4 


.+2 


|SKIP IF C BIT IS SET 


2514 


002666 


t 


101533 


4 





1533 


JMp 


DERR70 


; REPORT ERROR 


2515 


002667 


1 


016000 





7 


000 


RETURN 






2516 
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2517 
2518 
2519 
2520 



;*CHECK I/O SELECT REGISTER 

J WRITE INTO I/O SELECT REGISTER, READ AND CHECK FOR 



2521 


002670 


1 


002000 





1 


o ooo 


DTST17 1 


LDBR 


o 


2522 


002671 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 


2523 


002672 


1 


132057 


5 


5 


02 17 




DATI 


IOSEL • AC2 


2524 


002673 


1 


060057 


3 





02 17 




OSB 


AC2 


2525 


002674 


1 


114676 


4 


6 


0676 




JMPZ 


.♦2 


2526 


002675 


1 


101532 


4 





1532 






DERR71 


2527 


















2528 














f WRITE 


77 INTO 


STATUS REGISTFR. 


2529 




















2530 


002676 


1 


002077 





1 


077 




LDBR 

U *"* MSf ™ 


77 


2531 


002677 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 

i#> »>* %m *«* mi 


2532 


002700 


1 


132057 


5 


5 


02 17 




DATI 


IOSEL* AC2 


2533 


002701 


I 


060057 


3 





02 17 




OSB 


AC2 


2534 


002702 


1 


114704 


4 


6 


0704 




JMPZ 


.♦2 


2535 


002703 


1 


101531 


4 





1531 




j MP 


DERR72 


2536 


002704 


1 


016000 





7 


000 




RETURN 




2537 




















2538 














^ 1 * m* %» 


DAT I/O 


INSTRUCTIOM 


2539 


















2540 


002705 


1 


002022 





1 


022 


DTST18 • 


LDBR 

mm mm * » 


DP 


2541 


002706 


1 


066371 


3 


3 


17 11 




MOVB 


IOSEL 


2542 


002707 


1 


002252 





1 


252 




LDBR 


252 


2543 


002710 


1 


064131 


3 


2 


05 11 




MOVB 


MCHO 


2544 


002711 


1 


024105 


1 


2 


04 05 




DATI 


MCHO,MCLO 


2545 


002712 


1 


032144 


1 


5 


06 04 




DATI 


MCL0,AC6 


2546 


002713 


1 


060157 


3 





06 17 




OSB 


AC6 


2547 


002714 


1 


114716 


4 


6 


0716 




JMPZ 


.♦2 


2548 


002715 


1 


101530 


4 





1530 




JMP 


DERR73 


2549 


002716 


1 


016000 





7 


000 




RETURN 





I LOAD BR WITH ZEROS 

J WRITE INTO I/O SELECT REGISTER 

f READ BACK INTO AC2 

? COMPARE WITH DATA WRITTEN 

,'SKIP IF A MATCH 

; REPORT ERROR 



;LOAD BR WITH 77 

; WRITE INTO I/O SELECT REGISTER 

;READ BACK INTO AC2 

| COMPARE WITH DATA WRITTEN 

ISKIP IF A MATCH 

/REPORT ERROR 



; SELECT DATA PATH 

?FOR INPUT AND OUTPUT 

/GET A DATA PATTERN 

; WRITE INTO MC CNTR REG 

fCOP¥ DATA INTO MCLO ON DATA PATH 

f READ MC DATA 

; COMPARE AC6 WITH DATA WRITTEN 
?5KIP IF A MATCH 
I REPORT ERROR 



2550 
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f *TEST 


THAT MICROPROCESSOR 


CAN 


TALK 


TO 


THE DATA PATH INTERFACE 
















f ♦WRITE 


DATA INTO MA55BUS i 


COUNTER AND READ IT BACK 
































002717 


1 

A 


009029 

V V <6 V/ 4b d, 


V 


1 


022 

\f V 4« 4t 


HTST19: 


THRO 


99 








t SELECT DATA PATH 




V V 4» 1 & x * 


1 

Jl 


V V w f * 






17 11 


















002721 


1 

A 


002125 


o 


1 

A 


125 






1 9S 








tSET DATA PATTERN 




002722 


1 
* 


06411 1 


3 


2 

** 


04 1 1 




M0VB 


MCLO 










2558 


002723 


1 


032004 

V m# m* V V "TP 


1 

•A- 


5 


00 04 




DATI 


MCL0,AC0 








f READ IT BACK 




005794 


1 

X 


060017 


1 





00 17 




0SB 


ACO 








fCH^CK IT 




002725 


1 

* 


114727 


4 


6 


0727 




JMPZ 


.♦2 








f JUMP IF OKAY 


2*561 


002726 


1 

A 


101527 

A V J, %# ## F 


4 


o 


1527 




JMP 


DERR74 








• ELSE. REPORT ERROR 

£EUA4*?Iwtf f^|Uiri»#lAA 


2**fi2 


0279 7 


i 
A 


01 6000 





7 


000 




RETURN 












2**6^ 




























£ v** 














f *TEST 


THAT MICROPROCESSOR 


CAN 


TALK 


TO 

A 


THE CHANNEL BUS INTERFACE 

* fiw ri «l w ** *f ■■ O V IwF *> A W F\ IT W% \* lilt 
















• JftWRITE 

^ ~ T* S> * A *i» 


DATA INTO SPAD COUNTER 


awn 




TT ftATK 

A A OrtVlV 


2*\»6 




























2567 

A V f 


002730 


1 
* 


002033 


o 


I 


033 


DTST202 

|^F *»F lit mt V • 


LDBR 


33 








t SELECT CHAMMFL BUS INTERFACE 


2*56ft 


0027 ^ 1 


i 

*• 


066171 
vyy j f a 


3 


3 


17 11 




MOVB 


I0SEL 












002712 


1 
* 


30001 

V *J v w v i. 


1 


4 


00 01 




DATI 


CSR1,MEM 








1 Oat A vOI\4 vUflil!»n J.9 




00273 3 


1 
* 


05201 1 

V *Jf Mt V A A 


2 


5 


00 11 

V V v A A 




MOVMEM 


ACO 








*PUT THEM IN ACO 


2*>7 1 


002714 


1 
* 


002001 





1 

A 


001 

V V V A 




liDBR 


CHANIt 








♦SET CHANNEL MODE 


2*572 


002735 


1 

Jr 


062014 


3 


1 


00 14 




LORB 


ACO, BR 










OCT! 




I 
* 


064031 

Vvlv J A 




2 


01 11 

V VF A A A 




MOVB 


CSR1 








iSET CHANNEL MODE IN CSR1 




0097 17 


* 


002017 

V V 46 V A * 





4. 


017 

V V * F 




LDBR 


17 








tSET DATA PATTERN 




002740 


I 

A 


064! 31 




2 


05 11 

V V <mT A A 




MOVB 


TAGIN1 








f WRITE IT TO DATA BUFFER 


2*576 


002741 


1 


032005 


1 

A 


5 


00 05 




DATI 


TAGIN1,AC0 








fREAD IT BACK 


ftf" «* 
4& # f 


009749 

V V 4* f f li 


1 


044031 

V "SE V n# I* 


2 


2 


01 11 

V V A A A 




MOVMEM 


CSR1 








I RESTORE CSR1 ORIGINAL CONTENTS 


2578 


002743 


1 
* 


072013 


3 


5 


00 13 




LANDBR 


ACO 








/ISOLATE SP BITS 


2579 


002744 


I 


060017 


3 





00 17 




OSB 


ACO 








; CHECK IT 


2580 


002745 


1 


114747 


4 


6 


0747 




JMPZ 


.+2 








?JUMP If OKAY 


2581 


002746 


1 


101526 


4 





1526 




JMP 


DERR75 








fELSE, REPORT ERROR 


2582 


002747 


1 


016000 





7 


000 




RETURN 












2583 
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2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 
2604 
2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 
2628 
2629 
2630 
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638 



/♦TEST THAT THE CONTROL UNIT RESPONDS CORRECTLY TO THE "TEST I/O COMMAND* SEQUENCE, 

/CLEAR ALL TAG OUT LINES, 
/SET "OPL OUT* • 

/PUT DEVICE ADDRESS ON THE BUS OUT LINES, 
; SET * ADR OUT" , "HLD OUT" , THEN "SEL OUT", 
/CHECK THAT "OPL IN" SETS, 



002750 


1 


001001 








2 001 


DTST21 : 


LDMAR 


DFLAGS 


/t4J GET ADDRESS OF FLAGS 


002751 


1 


052011 


2 


5 


00 1 1 




MOVMEM 


ACQ 

m v* v 






















; C43 STARTED AT 'STARTA* 


002752 


1 


001000 








2 000 




LDMAR 

W *r f*| ^ f\ 







002753 


1 


060007 


3 


o 


00 07 




DEC 


ACQ 

Str W 




002754 


1 


115100 


4 


6 


1 too 




JMPZ 


NOT21 




002755 


1 


002003 

V V 4K» \f \W yf 





1 


003 




LDRR 


ONLINE+CHA&L 




002756 


1 


064031 


3 


2 


0111 




MOVB 


CSR1 


002757 


1 


117664 


4 


7 


1664 




JMPSUB 


WAIT 


f WAIT FOR BYPASS RELAY TO SETTLE 


002760 


I 


002200 





1 


200 




LDBR 


QPLQUT 


t SET WQPL OUT* 


002761 


1 


064071 


3 


2 


03 11 




MOVB 


TORI 


002762 


1 


002000 





1 


000 




LDBR 





iPUT DEV ADDR 01^ BOS OUT 


002763 


1 


064231 


3 


2 


11 tl 




MOVB 


BORLO 




002764 


1 


002020 





I 


020 




LDBR 


ADROUT 


?SET "ADR OUT" 


002765 


1 


064051 


3 


2 


02 11 




MOVB 


TORO 


002766 


1 


002030 





1 


030 




LDBR 


HLDOUT+ ADROUT 


J SET "HLD OUT" 


002767 


1 


064051 


3 


2 


02 11 




MOVB 


TORO 


002770 


1 


002032 





1 


032 




LDBR 


SELOUT+HLDQUT+ ADROUT 


f SET "SEL OUT" 


002771 


1 


064051 


3 


2 


02 11 




MOVB 


TORO 




002772 


1 


002200 





1 


200 




LDBR 


200 


J SET WAIT CNT 


002773 


1 


072031 


3 


5 


01 11 




MOVB 


AC1 




002774 


% 


022004 


1 


I 


00 04 


TlOLPl t 


DAT! 


TAGINOf BR 


iREAD TAfi IN RTTS 


002775 


I 


moot 


4 


4 


1001 




JMPB7 


.♦4 


fJUMP IF *OPL 1M* SET 


002776 


i 


072027 

v f 4b- V 4m * 


3 


5 


01 07 




DECR 


AC1 




002777 


I 


115525 


4 


6 


1525 




JMPZ 


DERR76 


f JUMP IF TIMFfl OOT 


003000 


1 


100774 


4 





0774 




JMP 


TlOLPl 


;ELSE, KEEP WAITING 














/ CLEAR 


"ADR OUT 


« 

• 
















/CHECK 


THAT "ADR IN" SETS, 




003001 

v %r n*p >^ *i»p «p» 


1 


002012 





I 


012 




LDBR 


SELOUT+HLDQUT 


tCLEAR "ADR OUT" 


003002 


I 


064051 


3 


2 


02 1 1 




MOVB 


TORO 


003003 


1 


002200 





1 


200 




LDBR 


200 


J SET WAIT CMT 


003004 


1 


072031 


3 


5 


01 11 




MOVB 


AC1 




003005 


1 


022004 


1 


1 


00 04 


TI0LP2? 


DATI 


TAGINOf BR 


|READ TAG IN BITS 


003006 


1 


107012 


4 


3 


1012 




JMPB4 


. + 4 


?JUMP IF SET 


003007 


1 


072027 


3 


5 


01 07 




DECR 


AC1 




003010 


1 


115524 


4 


6 


1524 




JMPZ 


DERR77 




003011 


1 


101005 


4 





1005 




JMP 


TIOLP2 
















/ CHECK 


THAT BUS 


IN LINES CONTAIN ADDRESS 


i REQUESTEDCO), 


003012 


1 


032007 


1 


5 


00 07 




DATI 


CBILO,AC0 


/READ BUS IN LIMES 


003013 


1 


010000 





4 


000 




LOMEM 





J SET EXPECTED DATA 


003014 


1 


040017 


2 





00 17 




OSM 


ACO 


/COMPARE 


003015 


1 


115017 


4 


6 


1017 




JMPZ 


,+2 


J JUMP IF BUS IN LISIS»0 


003016 


1 


101523 


4 





1523 




JMP 


DER100 


/REPORT ERROR 
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2639 
2640 
2641 
2642 
2643 
2644 



ICHECK THAT "BUSO PE FLAG" IS NOT SET, 
003017 1 022000 1 1 00 00 DATI C5R0,BR 

003020 1 014000 6 000 SHR 

003021 1 105522 4 2 1522 JMPBO DER101 



;READ HEGO 

; RIGHT AOa "BUSO SE FLAG* 
;JUMP IF PARITY ERROR 
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2645 
2646 
2647 
2648 



2661 
2662 
2663 
2664 



;PUT TEST 1-0 COMMAND (0) ON BUS OUT LINES, 

;SET "CMD OUT", 

?CHECK THAT "ADR IN" CLEARS, 



2649 


003022 


1 


002000 





1 


000 


LDBR 


o 


2650 


003023 


1 


064231 


3 


2 


11 11 


MOVB 


BORLO 


2651 


003024 


1 


002013 





1 


013 


LDBR 


CMDOUT+HLDOUTtSELOUT 


2652 


003025 


1 


064051 


3 


2 


02 11 


MOVB 


TORO 


2653 


003026 


1 


002200 





1 


200 


LDBR 


200 


2654 


003027 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 


2655 


003030 


1 


022004 


1 


1 


00 04 


TI0LP3I DAT I 


TAGINO ,BR 


2656 


003031 


1 


107033 


4 


3 


1033 


JMPB4 


.♦2 


2657 


003032 


1 


101036 


4 





1036 


JMP 


.+4 


2658 


003033 


1 


072027 


3 


5 


01 07 


DECR 


AC1 


2659 


003034 


1 


115521 


4 


6 


1521 


JMPZ 


DER102 


2660 


003035 


1 


101030 


4 





1030 


JMP 


TIOLP3 



; CLEAR "CMD OUT", 

yCHECK THAT "STA IN" SETS. 



2665 


003036 


I 


002012 





1 


012 


LDBR 


HLDOUT+SELQUT 


2666 


003037 


1 


064051 


3 


2 


02 11 


MOVB 


TORO 


2667 


003040 


1 


002200 





1 


200 


LDBR 


200 


2668 


003041 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 


2669 


003042 


1 


022004 


1 


1 


00 04 


TI0LP4I DATI 


TAGINO, BR 


2670 


003043 


1 


105047 


4 


2 


1047 


JMPBO 


• ♦4 


2671 


003044 


1 


072027 


3 


5 


01 07 


DECR 


AC1 


2672 


003045 


1 


115520 


4 


6 


1520 


JMPZ 


DERI 03 


2673 


003046 


1 


101042 


4 





1042 


JMP 


TI0LP4 



2674 



?PUT TEST I/O CMD ON BUS LINES 

JSET "CMD OUT" 

|SET WAIT CNT 

>READ TAG IN LINES 

? JUMP IF "ADR IN" STILL SET 

?ELSE, IT DROPPED 

;DEC WAIT CNT 

?JUMP IF TIMED OUT 

;ELS£, KEEP WAITING 



jCLEAR "CMD OUT" 

fSET WAIT CNT. 

J READ TAG IN LINES 
?JUMP IF "STA IN" SET 
;DEC WAIT CNT 
;JUMP IF TIMED OUT 
;£LSE, KEEP WAITING 
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;SET "SRV OUT" * 






OKI f> 
















THAT *STA IN* CLEARS* 




9*£77 
/D 1 t 






















<ftf> / <? 


A A H O A 7 


i 


A99 1 9 
vv4* JL / 


A 

V 


1 

1 


919 




T,DRR 

WWW" 


SRVOUT+HLDDUT+SFLOUT 


SSET neoy Qfjfti 




0010*50 

vvvv3v 


1 

4L 


064051 


3 


9 


02 11 

V V 46 A A 






TORO 




Aft A 




A 


009 900 





A 


900 

V 45 Vv 




AJ M JC? 


200 

46 V V 


;SEf WAIT CNT 


9 Aft 1 


003059 


f 

A 


079031 

V f £ \f -9 JL 


3 


5 


01 11 

V V A A A 






AC1 






0030*53 


1 
A 


022004 

V 4» 4S» \f V *I 


1 

A 


1 

A 


00 04 


TI0LP5 I 


W n * A. 


TAGINO „ BR 


; READ TAG IN LINES 




0030*54 


JL 


1 0**0&6 
i u i» u a q 


4 


2 


1 0^6 

4VJV 




JMPBO 


.♦2 


lJUMP IF STILL SET 


£ V V ** 


00^0*\*> 

V V <J W >Sf 


4 


101061 

A V A v V A 


4 





1061 

A V V A 




JMp 


.♦4 


lELSe. CLEARED OKAY 


9 Aft 

v v 3* 


0030*56 


JL 


079027 


3 


5 


01 07 

V V JL V f 




DECR 


AC1 


f DEC WAIT CNT 


OAR A 


% 7 


A 


1 1 **** t 7 


4 

** 


6 


1 M 7 




JMPZ 


DER104 


J JUMP IF TIMED OUT 




00 30 AO 

V V V v v 


1 
A 


101 0^3 

JL v JL V £ 


4 

** 





1 0*53 




JMP 


TIOIiPS 


it ELSE. KEEP 


V P w 




































f V A4 M t\ 


"SRV OUT 


", "HLD OUT", THEK "SEL 


OUT 11 ^ 

MM A # 


















THAT "QPL IN" CLEARS, 


























O AGO 


A A HA A 1 


4 

1 


009 A 1 9 
y vj5v** 


A 


4 

JL 


019 

V V A 4b 




LDBR 


HLDOUT+SELOUT 


Jj V ill fmt f> f\ W WW* 


9 AQ ^ 


003069 


A 


064051 

V % # "SI V *# JL 


*j 


2 


02 11 




M0V8 


TORO 




9694 


00 30 6 3 


A 


009009 

V V 4* V V M» 





1 

A 


002 




LDBR 


SELOUT 


;CLEAR ^HLD OUT ,, 




003064 


1 

JL 


064051 


3 


2 


02 1 1 

V V# Mm A A 




M0V8 


TORO 






003065 


1 

JL 


002000 





1 

A 


000 

Xf V V V 




LDBR 





f CLEAR H SEL OUT* 


2697 


003066 


1 
A 


064051 

V V V w A 


3 


2 


02 11 

v v* A A 




MOVB 


TORO 






003067 

v V «9 V W * 


i 

JL 


002900 





1 

* 


200 




LDBR 


200 


t SET WAIT CMT 




003070 

V V f V 


JL 


072031 


3 


5 


01 11 

V V A A A 




MOVB 


AC1 




970(1 


00 3071 


4 
A 


1 0000 

ViVVvv 





4 


000 




LDMEM 





•SET EXPECTED DATA 


97ft 1 
4 /V* 


00 3079 


JL 


032004 


1 

JL 


c 


00 04 


TI0LP61 


DATI 


TAGIN0,AC0 


JREAD TAG IN LIMES 


9709 


003073 


1 

JL 


040017 


2 





00 1 7 

V V V A * 




OSM 


ACO 


iCHECK FOR ALL ZEROS 


9703 


003074 


1 

A 


115100 

A A «*l A V V 


4 


6 


1 100 

A A V V 




JMPZ 


• +4 


1 JUMP IF ZEROS 


2704 


003075 


% 


072027 


3 


5 


01 07 




DECR 


AC1 


;DEC WAIT CNT 


2705 


003076 


1 


115516 


4 


6 


1516 




JMPZ 


0ER1O5 


JJUMP IF TIMED OUT 


2706 


003077 


1 


101072 


4 





1072 




JMp 


TI0LP6 


J ELSE , KEEP WAITING 


2707 


003100 


1 


016000 





7 


000 


NGT21* 


RETURN 






2708 
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2709 














;*TEST THAT THE 


CONTROL UNIT RESPONDS 


CORRECTLY TO THE "SENSE COMMAND" SEQUENCE. 


2710 
2711 














?*REA0 THE 24 SENSE BYTES* 






971 9 

4, f X A, 














f CLEAR ALL TAG I 


OUT LINES* 






2713 














y SET "QPL OUT* * 








2714 














;PUT DRIVE ADDRESS ON THE BUS OUT 


LINES. 


2715 














;SET "ADR OUT" , 


"HLD OUT" # THEN " 


OC.ii 


u u 1 " « 


2716 














t CHECK THAT »0PL IN* SETS. 






2717 






















2718 


003101 


1 


001001 








2 001 








1 l^J vft«i AMPHlPa Of rliAv»o 


2719 


003102 


I 


052011 


2 


5 


00 11 


MOVMEM 


ftCO 






2720 




















|C43 STARTED AT # STARTA # 


2721 


003103 


I 


001000 








2 000 


il i/ 1*1 M n 


1/ 




; KboTUKt; WAH TO V 


2722 


003104 


1 


060007 

V XT V \f f 


3 





00 07 


Df!C 

V K-» V 


AC0 




ft43 DEC TO TEST FOR ZERO 


2723 


003105 


1 


115326 


4 


6 


1326 




NOT22 




# i4J oisIF iboT Ir riiAGS AH& ZKHU 


2724 


003106 


1 


002027 





1 


027 




*D23 




• c trT r.nno f^WT ait tunc a phd cc^cet' qvtcc 


2725 


003107 

Xfi %P JU W f 


1 


072051 


3 


5 


02 11 




AC2 






2726 


003110 

V *if *»T w 4k V 


1 


002200 





1 
* 


200 

V Mm V V 


T.DRR 


0PL0UT 




? ac«T "Or L OUT" 


2727 


003111 


1 


064071 


3 


2 


03 11 


MHUR 

HWf w 


TORI 






2728 


003112 


1 


002000 





1 


000 











2729 


003113 


1 


064231 

V %J 4> mf J. 


3 


2 


11 ft 


MDUR 


BORLO 






2730 


003114 


1 

* 


001000 








2 000 


y i/ pi h f% 







• D iff G £* 1* USD 

JKboET MAR 


2731 


0031 15 


1 


002020 





1 


020 




ADROUT 




|DCtl AUK UU1 


2732 


0031 16 


1 


064051 

v V V %p A 


3 


2 


02 11 




TOR 




2733 


003117 


1 

* 


002030 

V V M* V <ir V 


o 


1 

* 


030 


LDBR 


HLD0UT+ADR0UT 




|a&T "Hum UUI " 


2734 


003120 


1 


064051 


3 


2 


02 11 


M0VB 


TOR0 




2735 


003121 


1 


00203? 





I 


032 


LDBR 


SELOUT'fHLDOUT* ADROUT 


jjO&l "aEjy UUT" 


2736 


003122 


1 


064051 


3 


2 


02 11 


MOVB 


TOR0 






2737 


003123 


1 


002200 





1 


200 


LDBR 


200 






2738 


003124 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 






2739 


003125 




022004 


1 


1 


00 04 


SNSLPlt DATI 


TAGIN0,BR 




} niUmU *A\n irl Pili) 


2740 


003126 


1 


111132 


4 


4 


1132 

■Jr J* *J Mb 


JMPB7 


SNSSET 






2741 


003127 

V V «t# <Jt 4b f 


1 


072027 


3 


5 


01 07 


DECR 


ACi 




s rvsrf» y a t m f m* 
f i/sUv 41 A v ™ A 


2742 


003130 


1 


115515 


4 


6 


1515 


JMP2 


DERI 06 






2743 


003131 


1 


101125 


4 





1125 


JMP 


SNSLP1 






2744 






















2745 














f CLEAR "ADR OUT 


". 






2746 














jCHECK THAT "ADR IN" SETS, 






2747 






















2748 


003132 


1 

* 


002012 





1 


012 


SNSSET* LDBR 


SELOUT-fHLOOUT 




? CLEAR "ADR OUT" 


2749 


003133 


1 


064051 


3 


2 


02 11 


MOVB 


TORO 






2750 


003134 


l 

* 


002200 





1 

* 


200 


LDBR 


200 




|SET WAIT CNT 


2751 


003135 


l 


072031 


3 


5 


01 11 


MOVB 


ACI 






2752 


003136 




022004 


1 

* 


1 


00 04 


SMSLP2S DATI 


TA6IN0.BR 




IREAD TAG IN BITS 


2753 


003137 


l 


107143 


4 


3 


1 143 


JMPB4 






JJUMP If SET 


2754 


003140 


l 

* 


072027 


3 


s 


01 07 


DECR 


ACi 




;DEC LOOP CNT 


2755 


003141 


1 


$15514 


4 


6 


1514 


JMPZ 


DER107 




?JUMP IF TIMED OUT 


2756 


003142 


1 


101136 


4 





1136 


JMP 


SNSLP2 






2757 






















2758 














f CHECK THAT BUS 


IN LINES CONTAIN 


ADDRESS REQUESTEDCO), 


2759 






















2760 


003143 


1 


032007 


1 


5 


00 07 


DATI 


CBIL0,AC0 




f READ BUS IN LINES 


2761 


003144 


1 


010000 





4 


000 


LDMEM 







f SET EXPECTED ADDR TO 


2762 


003145 


1 


040017 







00 17 


0SM 


ACO 




;C0MPARE 


2763 


003146 


1 


115150 


4 


6 


1150 


JMPZ 


.+2 




?aUMP IF BUS IN LINES»0 
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2766 














;CHECK THAT "BUSO PE FLAG" IS NOT SET. 




2767 


003150 


1 


010000 





4 


000 


LDMEM 





tSFT FXPPTTPn MAT A 


2768 


003151 


1 


022000 


1 


1 


00 00 


DATI 


CSR0,BR 




2769 


003152 


1 


014000 





6 


000 


SHR 




»niuin nutj nuou dc< rung 


2770 


003153 


1 


105512 


4 


2 


1512 


JMPBO 


DER111 


• .ItlMD TP D1DTTV fDBriD 


2771 




















2772 














sPUT SENSE COMMAND CO) ON BUS OUT LINES. 




2773 














;SET "CMD OUT*. 






2774 














fCHECK THAT "ADR IN" CLEARS. 




2775 




















2776 


003154 


1 


002004 





1 


004 


LDBR 


4 


!PUT SENSE CUTi ON ftHS MfoFR 


2777 


003155 


1 


064231 


3 


2 


11 11 


MOVB 


BORLO 




2778 


003156 


1 


002013 





1 


013 


LDBR 


CMD0UT+HLDQUT+5EL0UT 


tSET "CMD OUT" 


2779 


003157 


1 


064051 


3 


2 


02 11 


M0V8 


TORO 


2780 


003160 


1 


002200 





1 


200 


LDBR 


200 


•SET WAIT CNT 


2781 


003161 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 


2782 


003162 


1 


022004 


1 


1 


00 04 


SMSLP3: DATI 


TAGINOf BR 


? READ TAG IN LINES 


2783 


003163 


1 


107165 


4 


3 


1165 


JMPB4 


.+2 


jJUWP IF "ADR IN" STILL SET 


2784 


003164 


1 


101170 


4 





1170 


JMP 


.♦4 


lELSE. IT DROPPFD 


2785 


00316S 


1 


072027 


3 


5 


01 07 


DECR 


AC1 




2786 


003166 


1 


1155H 


4 


6 


1511 


JMPZ 


DER112 


t jump tip TTMirn niiT 


2787 
2788 


003167 


I 


101162 


4 





1162 


JMP 


SN5LP3 




2789 














j CLEAR "CMD OUT 






2790 














jCHECK THAT "STA IN" SETS. 




2791 




















2792 


003170 


1 


002012 





1 


012 


LDBR 


HLDOUT+SELOUT 


f CLEAR *CMD OUT* 


2793 


003171 


1 


064051 


3 


2 


02 H 


MOVB 


TORO 




2794 


003172 


1 


002200 





1 


200 


LDBR 


200 


fSET WAIT CUT* 


2795 


003173 


1 


072031 


3 


5 


01 11 


MOVB 


AC I 


2796 


003174 


1 


022004 


I 


1 


00 04 


SNSLP4S DATI 


TAGIN0,BR 


J READ TAG IN LINES 


2797 


003175 


1 


105201 


4 


2 


1201 


JMPBO 


,+4 


f JUMP 1W "STA TW* AFT 1 


2798 


003176 


1 


072027 


3 


5 


01 07 


DECR 


AC1 


f DEr watt cnt 


2799 


003177 


1 


115510 


4 


6 


1510 


JMPZ 


DERI 13 


* JU^P IF TIMED OUT 


2800 
2801 


003200 


1 


101174 


4 





1174 


JMP 


SNSLP4 


t ELSE • KEFP WAITING 


2802 














tCHECK THAT INITIAL STATUS IS ZERO 




2803 




















2804 


003201 


1 


010000 





4 


000 


LDMEM 





sSET EXPECTED DATA 


2805 


003202 


1 


032007 


i 


5 


00 07 


DATI 


C»ILO,ACO 


2 READ INITIAL STATUS 


2806 


003203 


1 


040017 


2 





00 17 


OSM 


ACO 


ICHECK IT 


2807 


003204 

V \P m* V «■ 


1 


115206 


4 


6 


1206 

* « v V 


JMPZ 


.+2 




2808 


003205 


i 


101507 


4 





1507 


JMP 


DERI 14 


I REPORT ERROR 


2809 


003206 


i 


022000 


1 


1 


00 00 


DATI 


CSRO ,8R 


1 1\ K* M l# r *# #1 v> ■ . w A, H J, %tw 


2810 


003207 


i 


014000 





6 


000 


SHR 






2811 


003210 


i 


105506 


4 


2 


1506 


JMPBO 


DERI 15 


I JUMP IF IT SET 


2812 


















2813 














?SET "SRV OUT". 






2814 














f CHECK THAT "STA IN" CLEARS, 




2815 




















2816 


003211 


i 


002212 





1 


212 


LDBR 


SRVOUT+HLDOUT4-SEL0UT 


I SET "SRV OUT" 


2817 


003212 


i 


064051 


3 


2 


02 11 


MOVi 


TORO 




2818 


003213 


i 


002200 





1 


200 


LDBR 


200 


;SET WAIT CMT 


2819 


003214 


i 


072031 


3 


5 


01 u 


MOVB 


AC1 


2820 


00321S 


i 


022004 




1 


00 04 


SNSLP5* DATI 


TAGING,SR 


|READ TAG IN HMES 
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4. O 46 X 


V M 4b & V* 


1 

41 


1 0*i220 

X V» V 46. 46 V 


4 


2 

46 


1220 

X 46 46 V 


JMPB0 


. +9 




JJUMP IF "STA IN" STILL SET 


40«« 


001217 

V V *3 4R» A f 


1 

* 


101221 

X V X 46 46 »J 


4 





1221 

JL 46 4S« *9 








I ELSE* CLEARED OKAY 


£, O £, J 


001220 

V V J 46 * V 


1 


072027 


1 


5 


01 07 


DECR 


AC1 




t DEC WAIf CNt 


it f? £* *f 


001221 

V V J 46 / I 


1 

X 


1 1 


4 


6 


1 50S 


JMPZ 


DER116 




f JUMP IF TIMED OUT 

WW 11 * 4|>. 1 4k4b J *w9>t' 




001222 

V V 4? 4b 46 46 


1 


10191** 

X V/ X 46 X >»# 


4 





1215 


JMP 


SNSLP5 




fELSE. KEEP WAITIMG 


4» O 4fe U 






















«. r 














yCLEAR "SRV OUT 


n 

• 






46 O A w 














;CHECK THAT "SRV IN« SETS. 






























001221 

V V «7 46 46 <*f 


1 
* 


002012 

V 4fe V 4b 46 





1 


012 

V V * 46 


LDBR 


HLDOUTtSELOUT 




iCLEAR "SRV OlJT ,, 


2831 


003224 


1 


064051 


1 


2 

4b 


02 11 

V V 4Jw A 46 


M0VB 


TORO 






2ft ^2 


1 2 2 *5 

V V «? 46 46 


1 


002200 

V V 4b 46 V V 





1 

X 


200 

V 46 V V 


LDBR 


200 




fSET WAIT CNT 

# l#«>i4 * ** <n> 46 '4» w " 4V 


46 Q ,9 


001226 

V Xt *? 4b 4m w 


1 
X 


072031 


1 


5 


01 11 

V v X XX 


M0VB 


AC1 






46 O *7 TT 


003227 


1 

Jk 


022005 

VA4JVV J 


1 

X' 


1 


00 05 


SNSLP6: DATI 


TAGIN1 # BR 




IREAD TAG IN LINES 


Oft 

4b O %J 


001210 

M V J| 46 «? V 


1 


111214 

X X X 46 «# *t 


4 


4 


1234 

X 4b n# TP 


JMPB7 


.♦4 




f JUMP IF *SRV IN" SET 


2ftl6 


001211 

V V ^ 46 •? JV 


1 

X 


072027 

V* t 46 V 46 * 


3 


5 


01 07 


DECR 


AC1 




IDEC WAIT CNT 


2ftl7 


003212 

V V 46 46 


1 

X 


1 1 5504 


4 


6 


1 504 


JMPZ 


DER117 




*JUMP IF TIMED OUT 


2ft 1ft 


001211 

V v J A j J 


1 

X 


101227 

X V X 46 46 / 


4 





1227 

A 4b 46 f 


JMP 


SNSLP6 




lELSE. KEEP WAITING 


2ft 10 






















2ft 40 














; READ AND SAVE 


THE SENSE BYTE. 






2ft41 

4b 15 * * 














jCHECK THAT "BUSO PE FLAG" DID 


NOT SET. 




2fi42 

46 46 






















2ft41 

,#x ** «3 


001214 


1 

X 


012007 

W 3 4b V V f 


1 

X 


c 


00 07 


NXTSBl DATI 


CBILQ,AC0 




fREAD SENSE BYTE 




00121*1 


1 

X 


022000 

V 46 46 V V V 


1 

X 


1 

4k 


00 00 


DATI 


CSR0,BR 




iREAD FLAG STATUS 

* * Imt bf 6 bl jn> W w# 4» FS 4» bp 


4# ** 


001216 


1 


01 4000 





6 


000 


SHR 






1 RIGHT ADJUST W BUS0 PE FLAG 


46 O » bP 


003217 

V V# <g# 46 iy# f 


i 

* 


105503 


4 


2 


1503 


JMPBO 


DERI 20 




lJUMP IF IT SIT 


2847 

4fc TT r 






















2848 














fSET "SRV OUT*. 








2349 














? CHECK THAT "SRV IN" CLEARS. 






2ftS0 

jfc O w v 






















2ftSl 

46 O * 


001240 

W «7 46 V 


1 

4fc 


002212 

V V 46 4& * «* 





1 

4k 


212 

V 46 X 4b 


SBXTERl LDBR 


SRVOUT+HLDOUT+SELOUT 


ISET "SRV OUT* 




Aft 1 


4 

X 


VOtv3 X 


1 


2 

46 


02 1 1 

V W 46 X X 


MOVB 


TORO 






2ft ** 1 


001242 

V V 9 46 46 


4 
X 


002200 

V V 46 46 W 





1 

X 


200 
u xvV 


LDBR 


200 




•SET WAIT CNT 


2ft^4 


001241 

VV nj? 46 *f *J 


1 

X 


072011 

V r 46 v 0? X 


1 


5 


01 11 

V v X XX 


MOVB 


AC1 






7ft5*> 


001244 

V V J 46 Tf " 


X 


02200*5 


1 

X 


1 

X 


00 05 


SNSLP7J DATI 


TAGIN1 ,8R 




fREAD TAG IN LINES 


78**#> 

4& O %# V 


00124^ 


1 

X 


111247 

X X X 46 r 


4 


4 


1 247 


JMPB7 


.4-2 




•JUMP IF "SRV IN* STILL SET 


2ft*%7 

4& & / 


001246 


4 

X 


1 01252 

X V X 46 M 46. 


4 





1252 

X 46 «^ 46 


JMP 


.+4 




fELSE. CLEARED OKAY 


2858 

X» v w V 


001247 


1 

X 


072027 

V f .46 V 46 f 


3 


5 


01 07 


DECR 


AC1 




jDEC WAIT CNT 


fcOv7 


0012*50 

v Vv4»vV 


1 

X 


1 15502 


4 


6 


1502 

A, V 46 


JMPZ 


DERI 21 




;JUMP IF TIMED OUT 


2860 

46 w 


0032S1 


1 

X 


101244 


4 





1244 

St 46 tT 


JMP 


SNSLP7 




/ELSE, KEEP 


2861 

4m w Vr J. 






















2ft62 

4SoDii 














jCLEAR "SRV OUT 


L*24 SENSE BYTES 






2863 

46 C? W «#' 














;IF RECEIVED AL 
;ELSE, CHECK TH 


, TERMINATE SEOUENCE, 


2864 

4k V W ~ 














AT "SRV IN" SETS 


AND CONTINUE RECEIVING BYTES * 


2ftl)^ 

46 O V 






















2866 


003252 

V 46' w 4b 


1 

* 


002012 

V w 46' V 4> m 





1 


012 


LDBR 


HLDOUT+SELOUT 




/CLEAR "SRV OUT* 


2867 


003253 


1 

46 


064051 


3 


2 


02 11 

V %f 4E» * 


MOVB 


TORO 






2ft£ft 


0012«i4 

V v J <S 9 *t 


1 

X 


072047 

V f 46 V Ti r 


l 




02 07 


DECR 


AC2 




IDEC BYTE CNT 


2869 

46 f£ %? 7 


003255 


1 

-X 


115266 

4> * ¥ 4»V V 


4 


6 


1266 


JMPZ 


BYTDON 




# JUMP IF READ ALL 24 BYTES 


2870 


003256 


1 


002200 





1 


200 


LDBR 


200 




J SET WAIT CNT 


2871 


003257 


1 


072031 


3 


5 


01 11 


MOVB 


AC1 






2872 


003260 


1 


02200S 


1 


t 


00 05 


SNSliPSt DATI 


TASINI , BR 




jREAD TAG IN LINES 


2873 


003261 


% 


111265 


4 


4 


1265 


JMPB7 


.+4 




lJUMP IF "SRV IN" SET 


2874 


003262 


1 


072027 


3 




01 07 


DECR 


AC1 




fDIC WAIT CNT 


2875 


003263 


1 


115501 


4 


6 


1501 


JMPZ 


DER122 




MUMP IF TIMED OUT 
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2876 


003264 

V V 10 M# V ™ 


1 

* 


101260 

* v 4, 4b w V 


4 





1 260 


2877 


003265 


* 


101234 

A V Jin 4t* w Tr 


4 





1234 


2878 














2879 














2880 














2881 














2882 


003266 




002200 





1 

* 


200 


2883 


003267 

V' %P 4jpr V# f 


1 


072031 


3 


5 


0111 


2884 


003270 


1 
* 


022004 


1 


1 


00 04 


2885 


003271 

V V & 4fe / * 


1 
* 


105275 


4 


2 


1 275 

X 4» # 


2886 

4E» V V V 


003272 


1 

* 


072027 

V f 4* V 4& r 


3 


5 


01 07 


2887 

M» V V f 


003273 


i 
* 


1 1 5500 


4 


6 


1 soo 


2888 

4fr V W V 


003274 


1 


101270 


4 





1270 

4> 4& F V 


2889 














2890 














2891 














2892 














2893 


003275 


1 


002712 





1 

* 


717 

V 4S> 4, 4Sr 


2894 


003276 

V V war * f W 


I 


064051 


3 


2 


02 11 


2895 

4fr W 


003277 


1 


002200 





1 


200 

V Mm V' V* 


2896 


003300 


I 

* 


072031 


3 


5 


01 11 


2897 


003301 


1 

* 


022004 


1 


1 


00 04 


2898 


003302 

V V niP \f m* 


1 


105304 


4 


2 

4Ef 


1304 


2899 


003303 


1 

•it 


101307 


4 





1 307 


2900 


003304 


1 

* 


072027 


3 


5 


01 07 


2901 


003305 


1 


115477 


4 


6 


1477 


2902 


003306 


1 

* 


101301 

&. & %t 4, 


4 





1301 


2903 

4Et W V V 














2904 














2905 














2906 

4& 7 V V 














7Q07 


003307 


1 


0070 1 7 

V v 4» v * l» 





1 


017 


2908 


00331 


1 

* 




»# 


4% 


02 11 


2909 


003311 


1 


002002 

>r Vr 4b V V J»* 





1 


002 


2910 

* 7 * V 


003312 


1 


064051 


3 


2 


02 It 


291 1 


003313 


1 

* 


002000 





1 


000 


2912 


003314 


1 


064051 

V V *t» .Jr 


3 


2 


02 11 

V J V* 4Sk Jk 4k 


2913 


003315 


1 


002200 

V A 4b V V 





1 

* 


200 


2914 


003316 


1 

* 


072031 




5 


0111 


2915 


003317 




002000 





1 


000 


2916 


003320 


* 


032004 


1 

* 


5 


00 04 


2917 


003351 


1 


06001 7 


3 




V 


00 17 


2918 


w V t? ft & 


1 


115326 


4 


6 


1 326 


2919 


003323 


1 


072027 


3 


5 


01 07 


2920 


003324 


1 


115476 


4 


6 


1476 


2921 


003325 


1 


101320 


4 





1320 


2922 


003326 


I 


016000 





7 


000 


2923 

















JMP 


SNSLP8 


;ELSE, KEEP WAITING 




JMP 


NXTSB 




j TERMINATE THE 


SENSE COMMAND SEQUENCE. 




J CHECK 


THAT *STA IN" SET IN RESPONSE TO 




BYTD0NJ 


LDBR 


200 






M0VB 


AC1 




SNSLP9; 


DATI 


TAGIN0,BR 


;READ TAG IN LINES 




JMPB0 


,+4 






DECR 


AC1 


;DEC WAIT CNT 




JMPZ 


DER123 


?JUMP IF TIMED OUT 




JMP 


SNSLP9 


f EiiiOILf fviS*l!#lr WAXI irlnlvi 


;SET "SRV OUT" » 






j v r* c# v a 


THAT "STA IN" CLEARS, 






LDBR 


SRVOUT+HLDOUT+SEL0UT 


tSJTT nqdu nrrTf 




M0VB 


TORO 






LDBR 


200 






M0VB 


AC1 




£M* 1? £4 V A t 


DATI 


TAGIN0, BR 


? READ TAG IN LINES 




JMPBO 


, + 2 


?JUMP IF "STA IN" STILL 




JMP 


• +4 


l^iuo&f vytnw&y wis a * 




DECK 


AC1 


>DEC WAIT CNT 




JMPZ 


DERI 24 


?JUMP IF TIMED OUT 




JMP 


SNSLPX 




; CLEAR 


"SRV OUT 


", "HLD OUT", THEN "SEL 


yy i # 


? CHECK 


THAT "OPL IN" CLEARS, 






LDBR 


HLDOUT+SELOUT 






M0VB 


TORO 






LDBR 


SELOUT 


f Uw&hr nuv yuji 




M0VB 


TORO 






LDBR 





f TLf Aft If flflT 11 




MOVB 


TORO 






LDBR 


200 






MOVB 


AC1 






LDBR 





tcifT rnMDiiRP wnpn 


SNSLPtl 


DATI 


TAGIN0,AC0 


|f%IV#ll/ AMU A« iU4L«^C*ci 




0SB 


ACO 






JMPZ 


, + 4 


f JUMP IF ZEROS 




DECR 


AC1 


?DEC WAIT CNT 




JMpZ 


DER12S 


fJUMP IF TIMED OUT 




JMP 


SNSLPY 


,-ELSE, KEEP WAITING 


N0T22I 


RETURN 
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2924 
2925 
2926 
2927 
2928 
2929 
2930 
2931 
2932 
2933 
2934 
2935 
2936 
2937 
2938 
2939 
2940 
2941 
2942 
2943 
2944 
2945 
2946 
2947 
2948 
2949 
2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 



SUBTTL DIVIDE ROUTINE 

yTHIS ROUTINE WILL DIVIDE THE NEGATIVE BYTE COUNT IN MASSBUS REGISTER 25 
;BY AN 8-BIT POSITIVE DIVISOR AND RETURN 
;BOTH QUOTIENT AND REMAINDER 

;£10J 1113 C12] THIS ROUTINE WAS MOVED FROM BANK 1 TO BANK 2 OF MEMORY TO MAKE 
; ROOM FOR THESE EDITS 

f ENTER WITH BYTE COUNT IN MASSBUS REGISTER 25 
; DIVISOR IN MEMORY 

?ON EXIT QUOTIENT WILL BE IN AC3-AC4 (POSITIVE) 
REMAINDER WILL BE IN AC2 















f 
f 


1 * fir 3 W t\ JL 


WILL NOT BE CHANGED 
















• ACS IS 


usirn AS 

VJ In* E* *>f ~ *J 


SHIFT COUNTER AND WILL 


CONTAIN »1 ON EXIT 


U U 4 j / r 


4 

X 


ft ft ft ft ft 
v w 4 v V U 


n 

V 


4 

X 


n no n 

U v V V 


U JL V 4- M C* • 




ft 


tC3ET A ZERO 


ft ft ^ v a ft 


* 


V f 4b V <J A 


•3 




09 1 1 






AC2 

#* v * 


• TN AC2 


ft ft 1 


4 

* 


1 00 ft ft 




1 


o on oo 




HAT? 


CNTL.Bft 

V J* Jl. 14 jr f\ 


iGFT LOW BYTE OF COUNT 


ft ft % 1 % 


X 


ft£9ftSf* 
v w Ma v w r* 


~i 


1 


07 1 fi 




TSR 


AC 2 * Bft 


sNEGATE IT. MAKING COUNT POSITIVE 


V v ^ ^ J J 


1 


V t 4G> * A <#, 




K 


04 1 1 




MOVE 


AC4 


2 PLACE IN AC4 


003334 


1 


122003 


5 


1 


00 03 




DATI 


CNTH,BR 


f GET HIGH BYTE 


003335 


1 


062042 


3 


1 


02 02 




OSBC 


AC2 f BR 


J CONTINUE THE NEGATION 


003336 


1 


072071 


3 


5 


03 11 




MOVB 


AC3 


; PLACE IN AC 3 


003337 


1 


072044 


3 


5 


02 04 




ADCR 


AC2 


? ADD OVERFLOW TO AC2 


003340 


1 


002017 





1 


017 




LDBR 


*D15 


;SET UP SHIFT COUNT 


003341 


1 


072131 


3 


5 


05 It 




MOVB 


AC5 


; IN ACS 


003342 


1 


072105 


3 


5 


04 05 


DIVLOPS 


SHLR 


AC4 


f SHIFT NUMBER LEFT ONE PLACE 


003343 


1 


072066 


3 


5 


03 06 




ROTLR 


AC3 




003344 


1 


072046 


3 


5 


02 06 




ROTLR 


AC2 




003345 


1 


040056 


2 





02 16 




TSM 


AC2 


; CHECK IF OVERFLOW SIZE OF DIVISOR 


003346 


1 


113350 


4 


5 


1350 




JMPC 


.♦2 


;YES 


003347 


I 


101352 


4 





1352 




JMP 


.+3 


>N0, DON'T SUBTRACT 


003350 


1 


052056 


2 


5 


02 16 




T5MR 


AC2 


; SUBTRACT OUT DIVISOR 


003351 


1 


072103 


3 


5 


04 03 




INCR 


AC 4 


f INCREMENT QUOTIENT 


003352 


1 


072127 


3 


5 


05 07 




DECR 


ACS 


; DECREMENT SHIFT COUNT 


003353 


1 


113342 


4 


5 


1342 




JMPC 


DIVLQP 


fSHIFT ALL BITS 


003354 


1 


016000 





7 


000 




RETURN 







DXMCA 

OXMCA 
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2962 
2963 


003400 










,LOC 


3400 








2964 












?*DISPATCH TABLE FOR DIAGS RUN 


AT STARTUP. 






2965 




















2966 


003400 


1 100271 


4 





0271 


GNCDGTl JMP 


DTSTO 

M A fc? A V 


: RUN 




n 

V 


2967 


003401 


1 100277 


4 





0277 


JMP 


DT&T1 


f ROM 




i 


2968 


003402 


1 100316 


4 





0316 


JMP 


DTST2 


0> *^ v# 


DIAG TEST 


#• 


2969 


003403 


1 100336 


4 





0336 


JMP 


DTST3 


;RUN 


DIAG TEST 




2970 


003404 


1 100350 


4 





0350 


JMP 


DTST4 


; RUN 


DIAG TEST 


4 


2971 


003405 


1 100363 


4 





0363 


JMp 


DTST5 


jRUN 


DIAG TEST 


5 


2972 


003406 


1 100373 


4 





0373 


JMP 


DTST6 

mm w «fc V# 


;RUN 


DIAG TEST 


6 


2973 


003407 


1 100405 


4 





0405 


JMP 


DTST7 


;RUN 


DIAG TEST 


7 


2974 


003410 


1 100427 


4 





0427 


JMP 


QTST8 


;RUN 


DIAG TEST 


S 


2975 


003411 


1 100524 


4 





0524 


JMp 


DTST9 


•RUN 


DIAG TEST 


9 


2976 


003412 


1 100541 


4 





0541 


JMP 

W * * IT 


JL/ A 1? A A v 


; RUN 


DIAG TEST 


10 

A V 


2977 


003413 


1 100557 


4 





0557 


JMP 




;RUN 


DIAG TEST 


1 i 
A A 


2978 


003414 


1 100572 


4 





0572 


JMP 


DTST1 9 


•RUN 


DIAG TEST 


12 


2979 


003415 


1 100604 


4 





0604 


JMP 


y AO * A *» 


J RUN 


DIAG TEST 


13 


2980 


003416 


1 100622 


4 





0622 


JMP 


DT&T 1 4 


t RUM 


DIAG TEST 


14 


2981 


003417 


1 100623 


4 





0623 


JMP 


DTST15 


;RUN 


DIAG TEST 


15 

A v 


2982 


003420 


1 100643 


4 





0643 


.IMD 
U *" ff 


U 1 O A i P 


•RUN 


DIAG TEST 


1 6 


2983 


003421 


1 100670 


4 





0670 


JMP 


DTST17 

hr A %} A A r 


:RUN 


DIAG TEST 


17 


2984 


003422 


1 100705 


4 





0705 


JMP 


nTftTi ft 

y *sj i *o 


?RUN 


DIAG TEST 


18 


2985 


003423 


1 100717 


4 





0717 


JMP 

V • • 4 IT 


DTST19 


;RUN 


01 AG TEST 


19 


2986 


003424 


1 100730 


4 





0730 


JMP 


DTST2G 


;RUN 


DIAG TEST 


20 


2987 


003425 


1 100750 


4 





0750 


JMp 


DTST2 1 


?RUN 


DIAG TEST 


21 


2988 


003426 


1 101101 


4 





1101 


JMP 


DTST22 


IRUN 


01 AG TEST 


22 


2989 


003427 


1 101430 


4 





1430 


JMP 




fSTOP RUNNING DIAGS 


2990 






















2991 


003430 


1 002100 





1 


100 


DNCENDr LDBR 

V? *~ V ■*** *^ # JW «•# 


SPRES 


» RESET STACK POINTER 


2992 


003431 


1 066371 


3 


3 


17 11 


MC1VR 










2993 


003432 


1 001001 








2 001 






?SET 


A DOR OF FLAGS 


2994 


003433 


1 043411 


2 


1 


3 00 11 


M fl tl M IT M 


AD f 
on p X 


JGET 


FLAGS 




2995 


003434 


1 107437 


4 


3 


1437 


JMPB4 


DGONLY 


?JUMP IF RUNNING DIAGS ONLY 


2996 


003435 


1 010042 





4 


042 


liDMEM 


IDLDGTS377 


?SET 


DISPATCH ADDRESS TO TOP OF TABLE 


2997 


003436 


1 100242 


4 





0242 


JMp 


CLNUPB 


f RESUME CLEANUP 


2998 






















2999 


003437 


1 002011 





1 


Oil 


DGONLYS LDBR 


MB 


t SELECT MASSBUS 


INTERFACE 


3000 


003440 


1 066371 


3 


3 


17 11 


MOVB 


I08EL 








3001 


003441 


1 100224 


4 





0224 


JMP 


RERUN 


? RERUN TESTS 




3002 























f 
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3003 














^♦DISPATCH TABLE FOR DIAGS WHICH 


ARE RUN DURING IDtiE LOOP. 


3004 






















3 S 

V V v.* 


003442 


1 


100271 


4 




0271 

V* f * 


TDLDGT I 




DTSTO 


fRUM DIAG TEST 


3006 

«? W V 


003443 


I 
* 


100277 


4 





027 7 

v A» f f 






DTST1 


fRUM DIAG TEST 1 


3007 


003444 


I 
A 


100316 

A v V -*? A VP 


4 





0316 

V *# A VP 




V * 1 IT 


2 


t RUN DIAG TEST 2 


3008 


00344S 


1 

* 


100336 


4 





0336 

V «*P *J V 




JMP 

VI 1 ■ IT 


DTSf 3 


IRON DIAG TEST 3 


3009 

J V V 7 


003446 


1 

A 


100350 


4 





0350 

V %|P *»P V 




JMP 


D T S T 4 


*RUN DIAG TEST 4 


3010 


003447 


1 
A 


100363 

A V V«J¥n# 


4 





0363 




JMP 


DTST5 


•PUN DIAG TEST 5 


3011 


003450 


1 
A 


100373 


4 


o 


0373 




J MP 


DTSf 6 


fRUN DIAG TEST 6 


3012 


003451 


i 
* 


100405 


4 


o 


0405 




JMP 

v ^ tr 


nTST7 

yluJi f 


*RUN DIAG TEST 7 


3013 


003452 

V/ V ** *F A 


i 

* 


100427 


4 





0427 




JMP 

U "J fr 




fRUN DIAG TEST 8 


3014 


OO 34**3 




1 0052 A 


4 

** 


A 

V 


0524 




JMP 

v ~* It 


M*v*7 


fRUN DIAG TEST 9 


3015 


003454 


l 
* 


100541 

A V V **» ~ A 


4 





0541 




JMP 

w «*» f 




fRUN DIAG TEST 10 

|/*>W*» W*riV A*«*VPA AW 


30 1 & 


003455 

V V 4? *ff %P «*J 


* 


1 00557 


4 




0557 

V w w r 




JMP 


1/ A O A J, A 


fRUN DIAG TEST 11 


3017 


00 34**6 


4 
1 


1 0057 2 

A V V <J f A* 


4 




VP 


0572 




JMP 

V 


HTAT 1 2 


fRUN DTAn TEST 12 

fT\VU™ W A " W AC*VPA A* 


3018 


003457 

V V «JP *S hJ f 


1 

A 


100604 

A V V W V TP 


4 





0604 




JMP 


DTSf 13 

U A %9 A A 


fRUN DIAG TEST 13 


3019 


003460 


1 


100622 


4 


o 


0622 




JMP 


Df ST14 

•r * mm A m ~ 


fRU^ DIAG TEST 14 

p »^ 1# r.» ™^ A " " A *<•* VP A A i» 


3020 

J V Mm v 


003461 


1 

* 


100623 


4 


o 


0623 

V V * w* 




JMP 


DTST15 

M * VP A A %# 


fRUN DIAG TEST 15 

m ia vr ** V AS fT& VP A V* V A A 


3021 


003462 


1 


100643 


4 





0643 




JMP 


DTSf 16 


fRUN DIAG TEST 16 


3022 


003463 


1 

* 


100670 


4 


o 


0670 




JMP 


DTST17 


fRUN DIAG TEST 17 


3023 


003464 

VV JIW « 


1 

ilk 


100705 


4 





0705 




JMP 


DTSf 18 


fRUN DIAG TEST 18 

J !•> W V A VP A *u*Vr A A. V 


3024 

i Jr V A* Tt 


003465 


1 


100717 

* V V f A f 


4 





0717 




JMP 


V A v> * A * 


fRUN DIAG TEST 19 


3025 

»J» V A* vP 


003466 


1 

A 


100730 


4 





0730 




JMP 


DTST20 


fRUN DIAG TEST 20 


3026 


003467 


i 

A 


002071 

V V me \f f A 


o 


I 


071 

V VP* 




JUMP 


IDLEf^D 

A 4m» *j *u i-y 




3027 

V A* f 


003470 


1 

* 


161631 

4 V id V # Jl 


7 





3 11 11 

**P A A' A A 










3028 






















3029 


00347 1 


1 

A 


001002 








2 002 

A* V V .«* 




LOMAR 


TSTADR 


t SET MAR TO ADDR 01* DISPATCH ADDR 


3030 


003472 


1 


011442 





4 


3 042 




liOMEM 


IDLDGT&377 | I 


;SET DISPATCH ADDRESS TO TOP OF TABLE 


3031 


003473 


1 


010000 





4 


000 




LDMEM 





;SET WAIT CNT TO ZERO 


3032 


003474 


1 


002031 





1 


031 




JUMP 


IDLED 


;G0 DO RESET AND ENTER IDLE LOOP 


3033 


003475 


1 


160211 


7 





10 11 










3034 
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3035 
3036 
3037 
3038 



3039 


003476 


1 


072163 


3 


5 





07 


03 


3040 


003477 


1 


072163 


3 


5 


o 


07 


03 


3041 


003500 


1 


072163 


3 


5 





07 


03 


3042 


003501 


1 


072163 


3 


5 





07 


03 


3043 


003502 


1 


072163 


3 


5 





07 


03 


3044 


003503 


1 


072163 


3 


5 


o 


07 


03 


3045 


003504 


1 


072163 


3 


5 


o 


07 


03 


3046 


003505 


1 


072163 


3 


5 


o 


07 


03 


3047 


003506 


1 


072163 


3 


5 


o 


07 


03 


3048 


003507 


1 


072163 


3 


5 





07 


03 


3049 


003510 


1 


072163 


3 


5 


o 


07 


03 


3050 


003511 


1 


072163 


3 


5 





07 


03 


3051 


003512 


1 


072163 


3 


5 





07 


03 


3052 


003513 

w v i»r v -m w 


1 


072163 


3 


5 


o 


07 


03 


3053 


003514 


1 


072163 


3 


5 





07 


03 


3054 


003515 


1 


072163 


3 


5 


o 


07 


03 


3055 


003516 


1 


072163 


3 


5 





07 


03 


3056 


003517 


1 


072163 


3 


5 





07 


03 


3057 


003520 


1 


072163 


3 


5 





07 


03 


3058 


003521 


1 


072163 


3 


5 





07 


03 


3059 


003522 


1 


072163 


3 


5 





07 


03 


3060 


003523 


1 


072163 


3 


5 


o 


07 


03 


3061 


003524 

V ^ mm * 


1 


072163 


3 


5 





07 


03 


3062 


003525 


I 


072163 


3 


5 





07 


03 


3063 


003526 


1 


072163 


3 


5 





07 


03 


3064 


003527 

*w v isr **** «* * 


1 


072163 


3 


5 


o 


07 


03 


3065 


003530 


1 


072163 

V f Aft A W %* 


3 


5 





07 


03 


3066 


003531 


1 


072163 


3 


5 





07 


03 


3067 


003532 


1 

* 


072163 


3 


5 





07 


03 


3068 


003533 


1 

* 


072163 


3 


5 





07 


03 


3069 


003534 


1 


072163 

V f At A W 


3 


5 





07 


03 


3070 


003535 

W TUT W 1 T»T |M|f faF 


1 


072163 


3 


5 





07 


03 


3071 


003536 

Vf" f«W Tfc^ 


1 


072163 


3 


5 





07 


03 


3072 


003537 


1 


072163 


3 


5 





07 


03 


3073 


003540 


1 


072163 


3 


5 





07 


03 


3074 


003541 


1 


072163 


3 


5 





07 


03 


3075 


003542 


1 


072163 


3 


5 


o 


07 


03 


3076 


003543 


1 


072163 


3 


5 





07 


03 


3077 


003544 


1 


072163 


3 


5 


o 


07 


03 


3078 


003545 


1 


072163 


3 


5 





07 


03 


3079 


003546 


!■ 


072163 


3 


5 





07 


03 


3080 


003547 


1 


072163 


3 


5 





07 


03 


3081 


003550 


1 


072163 


3 


5 





07 


03 


3082 


003551 


t 


072163 


3 


5 





07 


03 


3083 


003552 


1 


072163 


3 


5 





07 


03 


3084 


003553 


1 


072163 


3 


5 





07 


03 


3085 


003554 


1 


072163 


3 


5 





07 


03 


3086 


003555 


1 


072163 


3 


5 





07 


03 


3087 


003556 


1 


072163 


3 


5 





07 


03 


3088 


003557 


1 


072163 


3 


5 





07 


03 



3089 



;*ERR0R REPORTING ROUTINE fOR MICRQDIAGN05TICS, 

;AC7 CONTAINS A INITIALLY, THEN DEPENDING ON ENTRY POINT, IT GETS 
; INCREMENTED TO BECOME THE ERROR NUMBER. 



DER125 : 

I,/ *«* * » A mm 'mr 9 


INCR 


AC7 


1 INCREMENT 

f 4* W W f\ w rl f& 4> 


E* F\ I\ \J s\ 


rw w fn?c«iv 


DER124 t 


INCR 

* v# 


AC7 


t INCREMENT 




NUMRER 

»f w pi rjjCirv 


DER123* 


INCR 

*-' V" 


AC7 


s INCREMENT 


f?j r\ *^ w " 


If V "* £9 JC* l> 


DERI 22 : 


INCR 


AC7 


2 INCREMENT 


ERROR 

»t\ jf% w r> 


NUMBER 

vf W ™ BP If 


DER121 5 


INCR 


AC7 


I INCREMENT 


ERROR 

w Jrv *a ip# rv 


NUMBER 

jl M "* 17 K* rv 


DER120: 


INCR 


AC7 


2 INCREMENT 


ERROR 


NUMBER 

if v# ii 17 Ci r» 


DERI 17: 


INCR 


AC7 


1 INCREMENT 


ERROR 


NUMBER 

if w * * o rv 


DER116: 


INCR 


AC7 


# INCREMENT 


ERROR 

w\ ,r% \/ *\ 


NUMBER 

f i w n |3 *>* »v 


DERllSf 


INCR 


AC7 


t INCREMENT 

g j* \f rv n c* i* a 


Error 

Mt cvitv i«# rv 


NUMBER 

r* v i*i &# fv 


DER114: 


INCR 


AC7 


; INCREMENT 


ERROR 

»V *> V# *^ 


NUMBER 

v* w j*» <5f Hit rv 


DERI 13: 


INCR 


AC7 


f INCREMENT 


ERROR 


NUMBER 

*f v 1 * s? si* rv 


DER112: 


INCR 


AC7 


I INCREMENT 

f A *if V *y w p*i o ii a 


ERROR 

& jv r\ wrv 


NUMBER 
if v ™ o rv 


OERlll : 


INCR 


AC7 


f INCREMENT 


ERROR 
rv f\ w *> 


NUMBER 

if w ™* jc# rv 


DERllOl 

.1/ w S\ 4> 4» " * 


TNCR 

lW \f l\ 


AC7 


t I NfRFMFNT 

^ 4r If V tS «*» B* if 1 


ERROR 
CU fv l> U ™ 


NUMBER 


DER107 : 


INCR 

v ** 


AC7 


f ji rf v *\ *> f*i JG* if * 


ERROR 


NUMBER 

If U m 15* fv 


DERI 061 


INCR 


AC7 


f TMCREMFNT 


ERROR 

is* f% ir\ w rv 


WUMRFR 

!f W rl 0SUI\ 


DER105: 


INCR 


AC7 


• INCREMENT 

f A If V IV U 1*1 fm* 111 A 


ERROR 


NUMBER 

if il pi O Ci rv 


DER104 : 


INCR 


AC7 


f INCREMENT 


ERROR 


NUMBER 

n v pi kj irii rv 


DER103: 


INCR 


AC7 


1 INCREMENT 


ERROR 


NUMBER 


DER102: 


INCR 


AC7 


f INCREMENT 


ERROR 

£4 3TV W »V 


NUMBER 

if v# s T » rv 


OERiOl I 

<(B, V Jft 


INCR 


AC7 


t INCREMENT 

jp A ITf V *V *™ *i« If A 


ERROR 

m in. i\ w rv 


NUMBER 

If V **» O CU If 


derioo: 


INCR 


AC7 


f INCREMENT 


ERROR 


NUMBER 

If W **l IE? {!* *\ 


DERR77 : 


INCR 


AC7 


f INCREMENT 


ERROR 


NUMBER 


DERR76 : 


INCR 


AC7 


s INCREMENT 


ERROR 


NUMBER 

si v » A*'*«#irv 


DERR755 


INCR 


AC7 


§ INCREMFNT 


ERROR 


NUMBER 


DERR74: 


INCR 


AC7 


sINCREMENT 


ERROR 

surv rv w £v 


NUMBER 

If M "s K? !3f rv 


DERR73 2 


INCR 


AC7 


t INCREMENT 


ERROR 

Erf. rv f \ w rv 


NUMBER 

si v «*i jp ku rv 




INCR 

Jb S-~ P-^k 


AC7 


f INCRFMFNT 


ERROR 

5Uf% rv V rv 


NUMBER 

if w ™i o « rv 


HFRR71 f 






§ * if v w pi c< ri a 


FRROR 

Slff I\ rv v *v 


If W r» tj Fit f\ 


ysunri i V # 


TMCR 

* » v rv 


AC 7 


1 A if V 1% H if J| 


ERROR 


If M *^JCriKi» rv 


1^ icu i\ jrv v # § 


,|» *Ti V ™ 


AC7 


f 4 *f v W ^ in Ci I* i 


E R R O R 
1% rv U rv 


DUMBER 


DERR66I 


INCR 


AC7 


f INCREMFNT 

f A If V ** I™ if * 


ERROR 


NUMBER 

.if v i*iBi,is#rv 


|„/ w i\ C\ W # 


INCR 


AC7 


t INCREMENT 

y Asfv*^«fejpnK«ifA 


ERROR 
SU f \ r\ m rv 


Nil MBER 

if y m p JC* rv 


DERR64: 


INCR 


AC7 


f INCREMENT 


ERROR 

is* rv rv i»# rv 


NUMBER 

.if v i^A*ij*rv 


DERR632 


INCR 


AC7 

fIV F 


f INCREMENT 

A 11 W .f> riw If A 


ERROR 

■ ik# rv rv w rv 


NUMBER 


DERR62 2 

Jj, Sa* S- 1 * S> ^(F .idrt 


INCR 


AC7 


f INCREMENT 


ERROR 

& irv *\ w r\ 


NUMBER 

11 V *" far ln» »V 


DERR61 : 


INCR 


AC7 


sINCREMENT 

JT A »« "TV Ant I ' 1 *#? :*T A 


ERROR 


NUMBER 


DERR60 I 


INCR 


AC7 


f INCREMENT 


ERROR 

rv rv w 


NUMBER 


DCRR57 : 


INCR 


AC7 


I INCREMENT 


ERROR 

jw rv .rv v# 


NUMBER 


DERR56: 


INCR 


AC7 


f INCREMENT 


ERROR 


NUMBER 


DERR55 • 


INCR 


AC7 


f INCREMENT 

f -*r >»■ *Tt %a* 4T* *rj# #1 A 


ERROR 

Sm* H> 1> ftT: 


NUMBER 


DERR541 


INCR 


AC 7 


•INCREMENT 


ERROR 


NUMBER 


DERR53I 


INCR 


AC7 


•INCREMENT 


ERROR 


NUMBER 


DERR52J 


INCR 


AC7 


? INCREMENT 


ERROR 


NUMBER 


DERR51S 


INCR 


AC7 


| INCREMENT 


ERROR 


NUMBER 


DERR50 8 


INCR 


AC7 


J INCREMENT 


ERROR 


NUMBER 


DERR47; 


INCR 


AC7 


| INCREMENT 


ERROR 


NUMBER 


D1RR46S 


INCR 


AC7 


t INCREMENT 


ERROR 


NUMBER 


DERR4SI 


INCR 


AC7 


t INCREMENT 


ERROR 


NUMBER 


DERR44S 


INCR 


AC7 


; INCREMENT 


ERROR 


NUMBER 
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10Q0 

ji U V w 




1 


0721 63 


3 


K 





07 

V F 


03 


DERR43 2 

U %a* I> S\ T(f -1*1 # 


t m r r 






1 


072163 


1 


5 





07 


03 


DERR42 ! 


ft •** v*> *» 


30QO 


003562 


X 


072161 


1 


5 


A 

V 


07 


03 


U ti rv «\ ip * • 


ft V 


3093 

& V ~ J> 


003*>63 


1 

X 


072163 


3 


5 





07 

V F 


03 


HERR40 S 

Jo./ *i* * * *A 'W M • 


ft * H \*> »-V 


1094 


001564 

V Vrf Jw" 


1 


072163 


1 


5 





07 


03 


DERR 37 2 

Jl/ S«l |T% 5\ «NT F • 


IMCR 




003565 

v v <j >; v v 


1 

X 


0721 61 


3 


5 





07 


01 

v Ji 


HKRR36 2 


4 v 


(JV 7v 


003566 


1 

A 


072163 

V ( li A 


1 


5 





07 


03 

VF »*F 


DERR35 2 


INCR 


1097 


003^67 


1 

* 


072163 


3 


5 





07 


03 


DERR34S 


T NCR 

ft *■* %K» *» 




003570 


1 

* 


072163 

V f ft X W 


1 


5 





07 

V F 


3 


DERR33 2 


IMCR 


1099 


003571 


1 


072163 

V F £> J. V V 


1 


5 





07 

Vr F 


03 

VF «J 


DERR32 2 


INCR 

ft A* \t f\ 


3100 

y 1 vv 


003572 

V v *F F ft 


1 


072163 


3 


5 





07 


03 


DERR31 2 


INCR 


1101 


0015 71 


1 
4 


072163 

V F ft 4 V «J 


3 


5 





07 


03 


HERR30 2 


ft 1* v t\ 


1100 


001574 


1 

X 


070161 

V / ft 4 P J> 


3 


5 





07 

V F 


01 

V Jl 


n R R 7 i 

t/ £* f \ n- ft f • 


IMCR 

ft ^ rv 


1101 


001575 


1 

X 


070161 

V f ft x w J* 


1 


5 





07 

V F 


01 

v Jl 


HFRR26 2 

|^ CW g\ T\ ft V • 


TNCR 


1 1 04 


001576 

V V J> Q 1 V 


1 

X 


070161 

V r ft 4 V 


1 


5 


A 

V 


07 

V F 


01 

V Jl 


DERR25 2 




1 1 0^ 

J» 4 v & 


001577 


1 


072163 


1 


5 




V 


07 

V F 


01 

V J> 


HERR24 2 

V K* C\ IV ft *f • 


IMCR 

4 V r\ 


11 06 

^ 4 v w 


0016 00 


1 
X 


070161 

V f * 4 W 


3 

j* 


5 


A 

V 


07 

V F 


01 

V Jl 


flERR 1 f 


ft *« v 


1 1 0*1 


001601 

V* VF J» w V A 


1 

Jl 


070161 

V f ft 4 w n5 


1 


5 





07 

V/ F 


01 


hFRROO t 

S\ ft ft # 


TNCR 


11 Oft 


001602 


1 

X 


072163 

V / ft 4 v 


3 


5 





07 


03 


DFRR21 2 


IMCR 

ft f* 


1109 


003603 

v v v w 


1 

* 


072163 

v f ft 4. v *3 


3 


5 





07 


03 


r>ERR20 2 

4/ 1^ rv ft vf # 


IMCR 

ft 15 ■ 


1110 

3 4 4 V 


016 04 

V v J> w v ** 


1 


070161 

v r ft 4 w J> 


1 

j* 


5 





07 

V F 


01 

V J» 


nFRP 1 7 f 


TMCR 


1111 

J 1 4 * * 


003605 

W \f V V *J 


1 

X 


072161 


1 


5 




V 


07 

V F 


3 


DERR16 2 


INCR 

ft *' V 


1112 

JL <A. ft 


003606 

v V J v W w 


1 

X 


072163 

V 1 ft J. V «F 


3 


5 





07 


03 


DERR15 2 


IMCR 

ft Vk. «a 


1111 

J» * * Jl 


003607 


1 

4 


072161 

V / ft * w ^ 


3 


5 





07 

V F 


03 


DERR14 2 


INCR 


3114 


003610 


1 
4 


072161 

V F ft JSr V hbP 


3 


5 





07 

V F 


03 


DERR13 2 


INCR 

ft v» 


3115 


003611 


1 


072163 


3 


5 





07 

V F 


3 


DERR12 2 


IMCR 


3116 


003612 


1 


072163 

V 1 ft jl, W 


3 


S 





07 


03 


DERR1 1 2 


IMCR 

ft ** Vr *^ 


1117 


00161 3 


1 

* 


072163 

V f ft * %? »? 


3 


5 





07 

V F 


03 


HERR 1 2 


IMCR 

ft 1 * v»» ** 


3118 


003614 


1 


072161 


3 


5 





07 

V F 


03 


DERR72 


IMCP 


1119 

J> 4 4 3f 


00361 5 


1 

X 


07 0161 

v f ft 4 w hJp 


1 


5 





07 


01 

V Jl 


DFRR6 2 


IMCR 
ft 1^ 


1190 

J^ ft VS 


00161 6 

V * / JUG? 4 v 


1 

4 


070161 

V f ft 4 v 




5 




vF 


07 

V F 


01 


§j & *\ rv ^# • 


IMCR 

ft *» v " 


J X 4 4 




X 


0701 61 


1 







07 


O 1 




4 s " W rv 


1107 


01^00 
v v ^ D il v 


X 


07 0161 


1 

ji 


5 





07 


1 


y c* f \ i\ ji • 


TMCR 


1101 


001601 


1 

4 


0701 61 


3 


5 

<** 





07 


1 

w Ji 


nFRRO • 

t/ r\ rv ft * 


IMCR 


1104 

J) X ft *% 


1 ft 


1 

4 


0721 61 

V f ft 4 M Jl 


1 


5 





07 


03 


flFRRl f 


TMCR 

X vf \, rs, 


31 OS 

J> X ft 


001601 


1 
4 


002011 

V V ft V ft 4 





1 

4 




VF 


011 




nERRO f 


U s«# .1^ r*. 


1106 

J I A V 


003604 


1 

4 


066371 


3 


3 





17 


11 






3127 

nF Jb ft F 


003625 


1 


062170 

w v ft 4, f v 


3 


1 

ft 





07 


10 




MOV 


11 08 


001606 

V V Jl V A V 


1 

4 


0661 1 1 

V v w 4 4 4 


1 


3 





04 


11 




MOVE 


11 09 

»J J*, ft 


003607 


1 

4 


002000 

V V ft *J V *»# 





1 

<n 





000 




JW V jp r> 


1110 


001610 


1 

4 


0661 11 


1 

J 1 


1 

ji 





05 


It 




MHVR 

HWf » 




O f 11 A 1 


X 


O 1 1 
wU4vl 4 


O 


i 

4 





011 






1110 


001610 

v v j»i? ^ ft 


1 

4 


064051 


1 


2 





02 


11 




l™. y » 


111 1 

J) 4 J* m* 


01611 

vv Ja 


1 

4 


001001 








2 


001 




f*OM&R 


1114 


O 1 & 1 4 
V v J © J *% 


1 

4 


400 1 1 
V «t ft V 4 4 




ft 


1 

4 





00 


11 




1*1 W f p| ™* 


£ 4 Jr 3J> 


001615 

V \# J) v Jl %2 


1 

4 


111617 

4 4 4 O Jl / 


4 

** 


4 


1637 






y n ir # 


3136 


003636 


i 

* 


100106 


4 





0106 






JMP 


3137 


003637 


i 


072171 


3 


5 





07 






MOVB 


3138 


003640 


i 


002002 





1 





002 




LDBR 


3139 


003641 


i 


062174 


3 


1 





07 


14 




l,0RB 


3140 


003642 


i 


071411 


3 


4 


3 


00 


11 




MOVB 


3141 


003643 


i 


016000 





7 





000 




RETURN 



3142 



AC7 t INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 J INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ? INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 jr INCREMENT ERROR NUMBER 

AC7 t INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 I INCREMENT ERROR NUMBER 

AC7 ? INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

AC7 ? INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 J INCREMENT ERROR NUMBER 

AC 7 f INCREMENT ERROR NUMBER 

AC7 J INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 t INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

AC7 ; INCREMENT ERROR NUMBER 

AC7 ? INCREMENT ERROR NUMBER 

AC7 t INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

AC7 J INCREMENT ERROR NUMBER 

AC7 f INCREMENT ERROR NUMBER 

MB J SELECT MASSBUS INTERFACE 
IOSEL 

AC7,BR ?PUT ERROR NUMBER INTO DXSP6 
XSTAT1 



X5TAT0 

D.FAIL |SET ERROR CODE 
MPECR 

DFliAGS ;SET ADDR OF FbAGS 

BR f PUT FLAGS INTO BR 

.+2 ;JUMP IF SHOULD LOOP ON ERROR 

HALT ;ELSE, STOP MP 

AC7 ?SAVE DP LAGS VALUE 

2 ;SET MASK OF LOOPING FLAG 

AC7,1R I SET LOOPING BIT AND 

MEM, I f STORE IT IN FLAGS WORDS 

?RERUN FAILING TEST 
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3144 
3145 
3146 



1 4 A 7 
J 1 $ J 


A A 14 & A A 

U U £ o 4 4 


4 

I 


A A*2> A A A 


A 


4 

1 


w 


AAA 




VU JOiD 


4 
I 


A7 o i *l i 

V Ul 1 I 




D 





07 11 


1 i AO 




4 

I 


A A 1 AflO 


A 

V 


A 


2 


002 


3 1 SO 


AA 1 A A 7 

y v j P t / 


\ 

X 


A A 9 A | 4 


£ 


4 





00 11 






4 

X 


A A 1 AAA 


A 
V 


A 


2 


000 


1 4 CO 

$ 1 04 


AA-Jt C i 


4 

1 


A A A AAA 
VVvfvU 


A 

V 


A 


1 


000 




vvjo 3* 


4 

X 




7 


7 


3 


11 11 


3154 


003653 


1 


001001 








2 


001 


3155 


003654 


1 


043411 


2 


l 


3 


00 11 


3156 


003655 


1 


014000 





6 





000 


3157 


003656 


1 


105644 


4 


2 


1644 


3158 


003657 


1 


052011 


2 


5 





oo ii 


3159 


003660 


1 


071403 


3 


4 


3 


00 03 


3160 


003661 


1 


010000 





4 





000 


3161 


003662 


1 


002033 





1 





033 


3162 


003663 


1 


160211 


7 








10 11 



3163 



SUBTTL DIAGNOSTIC CONTROL 
?THIS CONTROL ROUTINE WAS MOVED 
RNDIAGt LDBR 



wnun 


API 


r TSM A D 


T<tT A T\B 


MHVMSTM 
If nftn 


RR 




A 
V 


LDMARX 





JMpSUB 


9BR,IDLDGT 


LDMAR 


DFLAGS 


MOVMEM 


BR, I 


SHR 




JMpBQ 


RNDIAG 


M0VMEM 


AC0 


INC 


AC0,MEM,I 


LDMEM 





JUMP 


IDLED1 
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AS PART OF EDIT t43 

,'CLEAR ERROR NUMBER REGISTER 

jSET MAR TO DISPATCH ADDR 

fPUT DISPATCH ADDR IN BR 

I RESET MAR 

; CLEAR MAR EXT BITS 

fGO RUN DIAG TEST 

J SET ADDR OF FLAGS 

f GET FLAGS INTO BR 

/RIGHT ADJUST LOOPING ON ERROR BIT 
; REPEAT TEST IF LOOPING 
I GET DISPATCH ADDR 
?INC AND STORE IT 

J SET WAIT CNT TO ZERO SO NEXT TEST WILL RUN 
;G0 BACK TO IDLE LOOP 
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3164 
3165 
3166 



;THIS WAIT LOOP IS USED TO WAIT AT LEAST 5 MS AFTER SETTING ONLINE AND 
{BEFORE OPERATING AMY TAG LINES, THIS IS TO ALLOW BYPASS RELAY SETTLING, 



3167 


003664 


% 


002036 





I 


036 


WAITS 


LDBR 


*D30 


fSET OUTER LOOP WAIT COUNT 


3168 


003665 


1 


072011 


3 


5 


00 11 




MOVB 


ACO 




3169 


003666 

v V «ir V 'iff wi» 


I 


002317 


o 


1 


317 


WAITOt 


LDBR 


*D207 


;SET INNER LOOP WAIT COUNT 


3170 


003667 


1 


072031 


3 


5 


01 H 




MOVB 


ACi 




3171 


003670 


1 


072027 


3 


5 


01 07 


WAITI? 


DECR 


AC I 


; DEC INNER LOOP COUNT 


3172 


003671 


1 


115673 


4 


6 


1673 




JMPZ 


,+2 


f JUMP IF INNER LOOP TIMED OUT 


3173 


003672 


1 


101670 


4 





1670 




JMp 


WAITI 


;ELSE, CONTINUE 


3174 


003673 


1 


072007 


3 


5 


00 07 




DECR 


ACO 


J DEC OUTER LOOP COUNT 


3175 


003674 


1 


115676 


4 


6 


1676 




JMPZ 


• + 2 


>JUMP IF OUTER LOOP TIMED OUT 


3176 


003675 


1 


101666 


4 





1666 




JMP 


WAITO 


;ELSE CONTINUE 


3177 


003676 


1 


016000 





7 


000 




RETURN 







3178 
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3179 
3180 

3181 
3182 
3183 
3184 
3185 
3186 
3187 
3188 
3189 
3190 
3191 
3192 
3193 
3194 
3195 
3196 
3197 
3198 



003677 
003700 
003701 
003702 
003703 



003704 
003705 
003706 
003707 
003710 
003711 



1 002010 1 010 

1 064051 3 2 02 11 

1 002102 1 102 

1 064031 3 2 01 11 

1 016000 7 000 



1 002011 

1 066371 3 

1 032117 1 

1 002022 

1 066371 3 



1 Oil 

3 17 11 

5 04 17 

1 022 

3 17 11 



1 016000 7 000 



SUBTIL FATAL ERROR HANDLERS 

jWRONG DRIVE TYPE OR HARDWARE VERSION FOR THIS MICRO-CODE 



WRQNGDJ LDBR 
MOVB 
LDBR 
MOVB 
RETURN 



F.WDT 
MPECR 

MPERR+CLRGQ 
MPSCR1 



;GET ERROR NUMBER 

I LOAD INTO ERROR CODE REGISTER 

;GET ERROR BIT 

/SET IT 

; HALT THE DX20 WITH A PUSH LIST UNDERFLOW ERROR 



jTHIS ROUTINE RESTORES THE FLAGS TO AC4 AFTER THEY ARE DESTROYED BY THE READ 
;TIMEOUT LOOP. THIS WAS PUT IN AS PART OF EDIT £53, 



GETFLGl LDBR 
MOVB 
DATI 
LDBR 
MOVB 
RETURN 



MB 

IOSEL 
FLAGS, AC4 

DP 

IOSEL 



f SELECT MASSBUS INTERFACE 

; RESTORE FLAGS 

; SELECT DATA PATH AGAIN 



DXMCA 
DXMCA 
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3199 
3200 
3201 
3202 
3203 



3233 
3234 
3235 
3236 
3237 
3238 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
3247 
3248 
3249 



y EACH OF THE FOLLOWING ROUTINES WILL COPY THE CONTENTS OF 10 
REGISTERS FROM THE SELECTED INTERFACE INTO MEMORY 

} THESE LOG ROUTINES WERE MOVED FROM THE LOWER BANK OF MEMORY TO HERE AS 
jPART OF EDIT £33 • 



3204 


003712 


1 

.* 


031400 

V # T Vv 


1 

* 


4 


3 


00 


00 


LOGOl 


DAT! 


0, MEM, I 


*r 0» V V 


003713 


1 
* 


031401 


1 


4 


3 


00 


01 




DATI 


1 • MEM m I 


3206 


003714 


1 


031402 


1 


4 


3 


00 


02 




DATI 




3207 


003715 


1 

* 


031403 


1 


4 


3 


00 


03 




DATI 


3# MEM.I 


3208 


003716 


1 


031404 

V »? * "s V TP 


1 


4 


3 


00 


04 




DATI 


4. MEM. I 


3209 


003717 


1 


031405 


1 
* 


4 


3 


00 


05 




DAT! 


S # M E M * I 


3210 


003720 

V V W f III V 


1 
* 


031406 

V A V V 


1 


4 


3 


00 


06 




DATI 


fe » M E M » I 


3211 


003721 


1 
* 


031407 


1 


4 


3 


00 


07 




DATI 


# « W H» W » 1 


3212 


003722 




016000 





7 





000 




RETURN 




3213 
























3214 


003723 


1 
* 


031410 


1 


4 


3 


00 


10 


14 v ^ \J * w * 


DATI 


10 • MEM. I 


3215 


003724 


1 


031411 


1 


4 


3 


00 


11 




DATI 


11 * MEM. I 


3216 


00372S 


1 


31412 


1 

A 


4 


3 


00 


12 




DATI 


12. MEM. I 


3217 


003726 


1 


031413 


1 

* 


4 


3 


00 


13 




DATI 


13. MEM. I 


3218 


003727 


1 

* 


031414 


1 


4 


3 


00 


14 




DATI 


14#MEM.I 


3219 


003730 


1 


031415 


1 


4 


3 


00 


15 




DATI 


15, MEM. I 


3220 

«Jf mt tm V 


003731 


1 


031416 


1 


4 


3 


00 


16 




DATI 


16. MEM. I 


3221 


003732 


1 


031417 


1 


4 


3 


00 


17 




DATI 


17 .MEM, I 


3222 


003733 


1 

•* 


016000 





7 





000 




RETURN 




3223 
























3224 


003734 


1 


131400 


5 


4 


3 


00 


00 


LOG20I 


DATI 


20, MEM, I 


3225 


003735 


1 


131401 


5 


4 


3 


00 


01 




DATI 


21, MEM, I 


3226 


003736 


1 


131402 


5 


4 


3 


00 


02 




DATI 


22, MEM, I 


3227 


003737 


1 


131403 


5 


4 


3 


00 


03 




DATI 


23, MEM, I 


3228 


003740 


1 


131404 


5 


4 


3 


00 


04 




DATI 


24, MEM, I 


3229 


003741 


1 


131405 


5 


4 


3 


00 


05 




DATI 


25, MEM, I 


3230 


003742 


1 


131406 


5 


4 


3 


00 


06 




DATI 


26, MEM, I 


3231 


003743 


1 


131407 


5 


4 


3 


00 


07 




DATI 


27 # MEM , I 


3232 


003744 


1 


016000 





7 





000 




RETURN 





; STACK STATUS FROM DEVICE AND DISCONNECT 

jt8J THIS ROUTINE WAS MOVED FROM BANK 1 OF THE MEMORY TO HERE TO MAKE ROOM 
t FOR FIX m 



003745 


1 


002145 





1 


145 


STACKS LDBR 


CMDOUT+TMREN+CLKOUT+MTROUT ;SEND COMMAND OUT 


003746 


1 


0640S1 


3 


2 


02 H 


M0V8 


TORO f AND CLEAR SELECT OUT 


003747 


1 


102061 


4 


1 


0061 


JMpi 


INTRPT f CHECK ON INTERRUPTS 


003750 


1 


022004 


1 


t 


00 04 


DATI 


TAGIN0,BR ;READ TAG IN LINES 


003751 


1 


105747 


4 


2 


1747 


JMPBO 


,-2 ?WAIT FOR STATUS IN TO DROP 


003752 


1 


002144 





1 


144 


LDBR 


TMREN+CLKOUT+MTROUT i DROP COMMAND OUT 


003753 


1 


064051 


3 


2 


02 11 


MOVB 


TORO 


003754 


1 


102061 


4 


1 


0061 


JMPI 


INTRPT 1 CHECK ON INTERRUPTS 


003755 


1 


022004 


1 


1 


00 04 


DATI 


TAGIN0,BR JREAD TAG IN LINES 


003756 


1 


111754 


4 


4 


1754 


JMPB7 


.-2 | WftIT FOR OPERATIONAL IN TO 


003757 


1 


016000 





7 


000 


RETURN 
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DXMCA MAC 23-Sep-81 15820 MICRO-CODE MEMORY 



10*% A 














3251 
















A A 1 7 & A 


M Wf «* «M| **> M 
////#/ 


*7 *f 1 *f *f *T 

1 9 1 1 f 1 


m u* wr 






J Z J 


A A A A A A 

U V V v U V 


A A A A A A 
vvvwv V 


A A A A A A 

V V V V V V 




A 

V 




3954 

■mf i* *J *I 


000001 

V V/ V V W 4, 


A A A A 

V V v V V V 


000000 

VVVvVv 


l/r uMi\jp # 


A 






A A A A A9 
vvVvv* 


A A A A A A 
VUvvvu 


A A A A A A 

V v V v V v 


VST AfrB f 


A 

V 




*? £ V 


A A A A 3 

v V V v V 


000000 

V V V V V V 


0A00AA 

V \/ V/ V V SJF 




A 


tinTii? i*oni> watt tnt 


v * w f 














3258 








§CHF!CKS 

V* * b< V ^ W 


OH PROPER HARDWARE 


CONFI CURAT ION 


3959 

*J jfc *J 77 














39fi A 


A A AO 04 

UVvVvH 


AAA AO A 

v V V V v V 


GOOOftA 

V v v v V V 


i# i% v * i jr • 


TYPF&377 

1 * IT ID at / f 


f DRT VH TYPE CftftF 1 fLOW ft BTTS1 


■«? £, O * 


0000A5 

WVvVV¥ 


AAA AAA 


AAA 1 9A 




TYPE»«8 




3969 

Java 














3963 




























3265 














3266 








? TEMPORARY STORAGE AREA 




3267 














3268 


000006 


000000 


000000 


CMNDr 





? STORAGE LOCATION FOR DEVICE COMMAND 


3269 
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3270 








3271 
















327 3 








3274 


( \ 7 

y Vvv V* / 


OOOOOO 

V/ v v V M V 


000021 

VVVV4 X 


327** 


00001 
Vvvv *v 


000000 

VvVvVV 


000000 

V V v v V v 


327fi 


0001 1 

V V V V JL jk 


000000 

\Jr y W V V w 


000000 

V V V v V V 


3277 


0000 1 2 

v v v v 4 45 


000000 


000000 
vvvvvv 




uyuVi j 


f)00000 

v %/ V v V V 


v \t v v v O 


3279 


00001 4 

V V V/ V A- TK 


000000 

vvvvvv 


000003 

v v v w v 


3280 

45* V V 


000015 

V V V V Jl, V 


000000 

V V " V V V 


000011 


32(1 1 


0000 1 ft 
Vvvviw 


00 0000 

V/ V V V w 


0000 34 


3262 


000017 

V V V V Jl f 


000000 

U V V v V v 


000033 

Vf W V V «p w» 


3283 


000020 

W V/ V V A V 


000000 

V V — " V V V 


000022 


3284 


000021 


000000 


000002 


3285 


000022 


000000 


000033 


3286 


000023 


000000 


000011 


3287 


000024 


000000 


000031 


3288 


000025 


000000 


000033 



? DATA LISTS FOR SETUP SEQUENCES 

; WRITE COMMAND SETUP LIST 

WRTSETS MBIN+DP0UT 
MC0UNT! 





SEBC0V+MEMC0V 
DXHISP+BCLKEN 
MB 

OCC+DTD+START 

CHN 

DP 

8CLKEN 

CHN 

MB 

OCC+DTD+EBL 
CHN 



/I/O MASSBUS IN AND DATA PATH OUT 

; CALCULATED MASSBUS COUNTER 

/ FOR WRITE OPERATION 

/FORMATTER START ADDRESS 

; FORMATTER END ENABLE FLAGS 

/SETS HIGH SPEED 

| MASSBUS INTERFACE SELECTION 

; STARTS THE TRANSFER 

/CHANNEL INTERFACE SELECTION 

? DATA PATH SELECTION 

; CLEARS HIGH SPEED 

/CHANNEL INTERFACE SELECTION 

/ MASSBUS INTERFACE SELECTION 

/SENDS EEL 

/CHANNEL INTERFACE SELECTION 



DXMCA - DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 
DXMCA MAC 23-Sep-81 15J20 MICRO-CODE MEMORY 



H 1 £k Q 








1 oo a 








3291 


00002& 


A A A A A A 
000000 


000021 




UUUv/ f 


A A A A A A 


A A A A A A 
VUvUUv 




A A A A 1 A 

vvvvjv 


A A A A A A 

V V V V V v 


A A A A A A 
vvvUvv 


3294 


A A A A If i 


A A A A A A 


A A A A 4 A 
U V U 1 


TOOK 


V U U V J / 


A A A A A A 
VVvUVv 


A A AAA'S 




AA 


A a A A A A 

V V V V V V 


A A A A 1 1 

V V v u 4 1 


32V 7 


A A A A "51 A 


A A A A A A 


A A A A O A 


41 «. U © 


yyvvJ3 


A A A A A A 


A A A t\10 

V V V V j£ Z 


3299 


000036 


000000 


000002 


3300 


000037 


000000 


000033 


330i 


000040 


000000 


000011 


3302 


000041 


000000 


000021 


3303 


000042 


000000 


000033 



;DATA LIST FOR READ COMMAND 

RDSET: M8IN+0P0UT 


fmtadr; o 

MEQNFE 

DXHISP+iCLKEN 
MB 

0CC+START 
DP 

8CLKEN 

CHN 
MB 

QCC+E8L 
CHN 
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?I/0 FOR MASSBUS IN AND DATA PATH OUT 

?T0 CLEAR MASSBUS COUNTER 

; FORMATTER START ADDRESS 

?END ENABLE FLAGS 

fSETS HIGH SPEED 

; MASSBUS INTERFACE SELECTION 

; STARTS THE TRANSFER 

f DATA PATH INTERFACE SELECTION 

7 CLEARS HIGH SPEED 

; CHANNEL INTERFACE SELECTION 

fMASSBUS INTERFACE SELECTION 

; SENDS AN EBL 

^CHANNEL INTERFACE SELECTION 
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3304 








3305 








3306 

<^M V W 


000043 


000000 

V V V V V V 


000033 


3307 

•mr *r v f 


000044 


000000 

\f \f W V V V 


000164 


3308 


000045 


000000 


000176 


3309 


000046 


000000 


000156 


3310 


000047 


000000 


000200 


3311 


000050 


000000 


000157 


3312 


000051 


000000 


000156 



j DATA LIST FOR DEVICE SELECTION ROUTINE 

selset: can ^CHANNEL interface selection 

ADROUT+TMREN+CLKOUT+MTROUT J SETS ADDRESS OUT 

adrout+hldqut+selout+tmren+clkgut+mtrout ;sets select out and HOLD OUT 

HLDOUT+SELOUT+TMREN+CLKOUT+MTROUT ; DROPS ADDRESS OUT 

OPLOUT ^CLEARS SUPPRESS OUT 

HLDOUT+SELQUT+CMDOUT+TMREN+CLKOUT+MTROUT JSETS COMMAND OUT 

BLDOUT+SELOUT+TMREN+CLKOUT+MTRQUT J DROPS COMMAND OUT 



DXMCA 
DXMCA 
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3314 








J 3 X -J 








3316 




v/ w v v y 


0000 o 

vvvvvv 


3317 


00Q053 


000000 

V V V V V V 


0000 00 

V V V V V v 


3318 


V V V V TS 


000000 
vyVVvv 


oooooo 

vvvvVV 


3319 


0000** 


000000 

V V V V V V 


oooooo 

V V V V V V 


3320 

*P ^ At V 








3321 


000056 


000000 


oooooo 

V V V V V v 


3 322 


000057 


000000 


oooooo 

V V V V V V 


3323 


000060 

V V V V V V 


000000 


oooooo 

V* V V V V V 


3324 


000061 


000000 

V V v v V V 


oooooo 

V V V V V V 


3325 








3326 


000062 

V v v V O * 


000000 

V V v V V V 


oooooo 

V V v v V V 


3327 


000063 


000000 

V V V V V V 


oooooo 

vvvvvv 


3328 


000064 

V V v V v™ 


000000 

V V V V V v 


oooooo 

v w w v 


3329 


6 5 


000000 


oooooo 

V v v V V V 


3330 








3331 


0000 Aft 

V V V V V V 


000000 


OOOOOO 

V v V "V v 


3332 

J 3> <J £* 


000067 


000000 

V V V V V V 


oooooo 

V V V V V V 


3 3 3 3 

*i „> *m j> 


000070 

W V V f V 


O O O 

V V V v v V 


OOOOOO 

vvvvvv 


33 34 


00007 1 

v v v V f 1 


O O O 

v v v v v v 


OOOOOO 
vvwvv 


3335 








3336 


000072 

V V V V f 4* 


000000 

V V V V v V 


OOOOOO 

v V V v v V 


3337 


000073 


000000 

VVVVvV 


oooooo 

VVVVVV 


3338 

«)7 V 


000074 


000000 

V \f V V V V 


OOOOOO 

vvvvvv 


3 339 


00007*5 


000000 

v V v V v w 


OOOOOO 

V W v V V 


3340 








3341 


000076 


000000 

V V V V V V 


OOOOOO 

v \f V V V V 


3342 

*fi ™ ma 


000077 

v V V V r r 


000000 


oooooo 


3343 


0001 00 


000000 

VVVVVV 


oooooo 

V \f V v v V 


3344 


00 4 01 


000000 

V V V V V V 


oooooo 

V V V V V V 


3345 








3346 


000102 


000000 


000034 


3347 


000103 


000000 


000004 


3348 


000104 


000000 


oooooo 


3349 


000105 


000000 


oooooo 



SUBTTL EXTENDED STATUS TABLE 
?0 

SBYTOOs 

SBYTOl: 

SBYT02 : 

SBYT03; 

;i 

SBYT04J 

SBYT05J 

SBYT06X 

SBYT07I 

?2 

S8YT08J 

SBYT09J 

S8YT10! 

SBYTll: 

1 3 

SBYT12J 

SBYT13: 

SBYT14I 

SBYT15: 

?4 

SBYT16J 

S8YT17! 

SBYT18! 

SBYT191 

SBYT20I 

SBYT21: 

SBYT22J 

SBYT23S 

; 6 

MCVER! «VERSI0N.2>&374>i 

<EDIT&377> 

STAT; 

I0REGJ 



'.•8>63> t VERSION MUMBER 
t EDIT NUMBER 

IMICRO-PROCESSOR STATUS REGISTER 
; I/O SELECT REGISTER 
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3350 








3351 


000106 


A A A A A A 

000000 


A A A A A A 

000000 


3352 


AAA 4 At 

000107 


A A A A A A 

00 000 


A A A A A A 

000000 


i *a ct i 

3353 


A A A 4 4 A 

0001 10 


A A A A A A 

Q U 


A A A A A A 


3354 


A A A 4 4 4 

0001 1 1 


A A A A A A 

000 uvv 


a a A A A A 

vUvvvU 


3355 








3356 


A A A 4 4 O 

0001 12 


A A A A A A 

U00000 


a A A A A A 


3357 


A A A 4 4 H 

000113 


A A A A A A 


A A A A A A 


3358 


A A A 4 4 it 

0001 14 


A A A A A A 

Q00000 


A A A A A A 

000000 


3359 


A A A 4 4 & 
0001 1 


A A A A A A 

uoouuo 


A A A A A A 

U v v v V v 


330v 








3361 


A A A 4 4 i£ 

000116 


A A A A A A 

000000 


A A A A A A 

000000 


"51 ""l JtL A 

3362 


000117 


A A A A A A 

000000 


A A A A A A 
000 UU U 


3363 


000120 


A A A A A A 

000000 


A A A A A A 

000000 


3364 


A A A a. #% 4 

000121 


A A A A A A 

000000 


A A A A A A 

000000 


3365 








3366 


000122 


A A A A A A 

000000 


A A A A A A 

000000 


3367 


000123 


A A A A A A 

000000 


A A A A A A 

000000 


3368 


000124 


A A A A A A 

000000 


A A A A A A 

v U y 


n n a a 
336" 


A A A 4 *i IE 


A A A A A A 
V U U U V V 


A A A A A A 
U V V V v V 


3370 








> H "7 1 

33/1 


A A A 4 <"> <L 


A A A A A A 

UUVvvv 


yUvUuv 


S3 I d 


A A A 1 0*l 


A A A A A A 

UvV U V v 


a A A A A A 


3373 


A A A 4 jI A 

0001 30 


A A A A A A 


A A A A A A 
y V 


1 *7 it 

3374 


A A A 4 11 


A A A A A A 
V V V U V V 


A A A A A A 
vvvvvv 


3375 








3376 


000132 


000000 


000000 


3377 


000133 


000000 


000000 


3378 


000134 


000000 


000000 


3379 


000135 


000000 


000000 



SUBSYSTEM MICRO-CODE VERSION 4.7 
EXTENDED STATUS TABLE 

?7 



>10 



1 12 



ri3 



;14 



MRU A f 




w 




n 


M8R2* 





MBR3 1 





M B R 4 • 


A 


M U O C « 

PI PH\ £? # 





^BR6f 





MBR7? 





iiUp 1 At 


A 

V 


m on A 1 S 


A 

V 


NBR125 





$8R! 3 1 





MftD 14* 
A 4 *£ • 


A 


W D S\ A a • 


A 

w 


M8R16S 





MBR17: 





MBR20 S 















MBR23S 





MBR24: 





MBR25S 





MBR26: 





MBR27: 
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fMASSBUS REGISTERS 



DXMCA - 
DXMCA 

3380 
3381 
3382 
3383 
3384 
3385 
3386 
3387 
3388 
3389 
3390 
3391 
3392 
3393 
3394 
3395 
3396 
3397 
3398 
3399 
3400 
3401 
3402 
3403 
3404 
3405 
3406 
3407 
3408 
3409 
3410 
3411 
3412 
3413 
3414 
3415 
3416 
3417 
3418 
3419 
3420 
3421 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 
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f 15 



000136 


oooooo 


OOOOOO 




CHNROS 


o 


000137 


000000 


OOOOOO 






o 

V 


000140 


000000 


OOOOOO 




CHNR2t 





000141 


OOOOOO 


OOOOOO 




CHNR3: 





000142 


OOOOOO 


OOOOOO 


I 16 


CHNR4 ! 


o 

V 


000143 


OOOOOO 


OOOOOO 




CHNR5* 

\t * * ft w • * » %ir 9 


o 


000144 


OOOOOO 


OOOOOO 




CHNR6: 




V 


000145 


OOOOOO 


OOOOOO 




CHMR7 S 





000146 


OOOOOO 


OOOOOO 


f ■* f 


DPROi 





000147 


OOOOOO 


OOOOOO 




DPR1 f 


n 


000150 


OOOOOO 


OOOOOO 




DPR2 S 





000151 


OOOOOO 


OOOOOO 




DPR31 











;2Q 






000152 


OOOOOO 


OOOOOO 




DPR4: 


o 


000153 


OOOOOO 


OOOOOO 




DPRSs 





000154 


OOOOOO 


OOOOOO 




DPR62 





000155 


OOOOOO 


OOOOOO 




DPR7 : 





000156 


OOOOOO 


OOOOOO 


t 21 


DPR102 





000157 


OOOOOO 


OOOOOO 




DPRl 1 2 





000160 


OOOOOO 


OOOOOO 




DPR 12 2 




V 


000161 


OOOOOO 


OOOOOO 




DPR13 5 


o 








;22 






000162 


OOOOOO 


OOOOOO 




DPR 14 S 





000163 


OOOOOO 


OOOOOO 




DPRl S I 





000164 


OOOOOO 


OOOOOO 




DPR16: 


o 


000165 


OOOOOO 


OOOOOO 




DPR17! 











?23 






000166 


OOOOOO 


OOOOOO 




LSTCMDl 





000167 


OOOOOO 


OOOOOO 




LSTDRVs 





000170 


OOOOOO 


OOOOOO 




INTSTS; 





000171 


OOOOOO 


OOOOOO 




INTDRVS 






000120 EXSlZEs.-SBYTOO 
000023 MAXIDXSEXSIZE/4-1 

.MNEXT 
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fCHANNEL BUS INTERFACE REGISTERS 

;DATA PATH REGISTERS 



;LAST COMMAND ISSUED TO DRIVE 

;LAST DRIVE SELECTED 

;LAST INTERRUPT STATUS RECEIVED 

;LAST INTERRUPTING DRIVE 



J NUMBER OF BYTES IN EXTENDED STATUS TABLE 
J MAXIMUM VALID INDEX CODE 



f MOVE TO NEXT MEMORY PAGE 
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1 AO*) 








/FUNCTION CODE TABLE 








3 ** *» 3 








J m v n 


CONSISTS or 


FOUR 


WORDS 




3%6** 








* IT T D C T t 5? i 


COMMAND BITE 


TO SEND TO 


DRIVE 


3%4%D 








• cprnuh tc 


CONTROL BITS 


TO 


BE PLACED IN AC7 










• fUTDfl T «5 i 


DISPATCH ADDRESS 


FOR ROUTINE 


34/ / 








* ITflill?7 l H T<: 
f r uunin 4. o 


NOT USED 








3A0$ 

3 *f /. 


















3 AOQ 








f & 1/ £* A X I" * LJ 


TABLE BY FUNCTION CODE 


( EXCLfinTNG 




















3A31 

3 Tl 3 A 


A A A 4 A A 

M U M f V u 


A A A A A A 
yyyvvy 


A AAA A3 
y uy vy 3 


r y«v»» 3 








f 1 


*l *fr «? A 


000401 

V W V ™ v * 


0A0000 

V V V V V V 


000331 




331 

3 3 * 








3 A 3 1 


A A A4A0 


A A A A A A 
v v/ v vy v 


A A A 1 fid 




J, 1*1 Fl V* m U 








1/1 1A 


A A A A A 3 


A A A A A A 

y v yy v u 


A A A A A A 
yyyyyy 




A 








iaic 


A A A AAA 


A AAA A A 
v v V v V v 


A A A A 1 7 
y v y y x f 


1 7 








3 


3430 


A A A A A *S 


A A A A A A 
vUvvvV 


A A A "J H C 

y U u 3 3 3 




3 3«i 
3 3 9 








lAll 

3^r£ f 


A A A A A£ 


A A A A A A 

yyvvvv 


A A A i £ A 
v v v X P 4 




r m m r m n 








3^3$ 


A A A A A7 


A A A A A A 


A A A A A A 

vvvUvv 















A A A A 1 A 


777777 
f t 1 I 1 1 


<m mm mm tm « mm 
1 1 f 1 J 1 


m 1 

*"1 








• *t 

t 5 


3 TT** V 


A A A A 1 1 


A A A A A A 
V U U v U U 


AAAAA 1 
Vvvvvi 




1 








3 A A 1 
3 *i A 


A AH A 1 

v v v w A «fc 


A A A A A A 

V w v V v w 


AAA 1 7 3 
vvvl 13 




m* \* ™t M 








1 A4 


A A A 4 1 3 
vvVf * 3 


A A A A A A 
yyyyyy 


A A A A A A 






w 








344 3 

3 **** 3 


A AAA 1 4 


A AAA A A 

V V v v V v 


A A A A A 7 
yyyyy t 


7 








f 7 

# • 


3 444 


A AA4 1 ■* 


A A A A A 


A A A 3 3 K 




335 








3 *x ** 


V v V *f A V 


A A A A A A 

V v V V V V 


A A A 1 & 4 
yy v*i?f 












3446 

W ~ » VP 


00041 7 


000000 

V V V V V V 


000000 

V V V v v v 




A 








3447 


000400 


000000 


0OO0A A 

V V V M V */ 


A 
y 








ill 


344ft 

^ "J? CP 


000421 

V V V "* A 4 


AA000A 

V V v V V V 


A000 A1 
y v v w a 




i 

4 








3 44Q 


A A A 4 


A AAA A A 

V V V v v V 


A A A 1 

y y y * u *j 




V# 14 V * * *** 








3450 

"SP V 


000423 


000000 

\f V " " v \# 


000000 

V V V w v V 













3 *« »3 A 


A A A AO A 
y u v *t it *i 


A AAA A A 
v v v V v V 


AAA 30 A 


1 A 








# * j 


1ACO 

3%!#4 




A A A A A A 
yyyyyy 


A AAA A t 

y y y v y A 




1 








1 A Is 1 
J ** ,3 3 


A A A A Oft 


A A A A A A 

V U V v V V 


A A A 1 7 A 

VVV* f¥ 




O W *!> %* r* *•* 








1AKA 


A A A A07 

yyy**4 r 


AAA AAA 

yyyyyy 


A A A A A A 
y y y y y u 




A 

V 








iAee 
at 


A A A 4 3 A 

y v v 3 v 


777777 
1 ? 9 f i 1 


7 7 7 7 7 7 
f f f f ( f 


• 1 








• 1 c 

f I <J 


1AE£ 


A A A A 3 f 
U U v ^ 3 * 


A AAA A A 


A A A A A i 
vUvvvl 




1 

4 








3 ABIT 
3% a # 


A AAA 30 


A A A A A A 
v v V V v V 


A A A 1 7 3 
vwvi 13 












3A*\& 

3*v. O 


a A A 4 3 3 

V y V «* 3 3 


A A A A A A 

v U v v v v 


A A A A A A 
yyyyyy 













34$Q 


A A 04 34 


t I t f I f 


777777 


«»1 

4 










Afc A 


A A A A 3 
vy y *3D 


A A A A A A 

V V V v v v 


A A A A A 1 
V V V V v l 




1 








346 1 


A A A 4 3 & 


A AAA A A 

V v V v v v 


A A A 1 7 3 
Vvvi 13 




BADCMD 








341% 2 


AAAA37 


AAAAA A 

V V V V V V 


AAA AAA 

yyyyy y 













3*fe® 3 


A A A A A A 
U 1/ v *i V 


*■* m 7 7 *» 7 
////// 


«w *% 9* *» *» 

f f i f f f 










?21 


1A&A 
3 ** v *? 


A AAA 41 


A A A AAA 

vyyvyy 


A A A A A 1 

y y y y y X 




1 








3 *f v* *J 


A AAA AO 


A A A A A A 
yyyyyy 


A A A 1 7 3 
V v V * / 3 




BADCMD 








3466 


000443 


000000 


000000 













3467 


000444 


777777 












|23 


3468 


000445 


000000 


000001 




1 








3469 


000446 


000000 


000173 




BADCMD 








3470 


000447 


000000 


000000 














M0 OPERATION 



REWIND AND UNLOAD 



REWIND 



DRIVE CLEAR 



SENSE RELEASE 



DXMCA - DX2O-V10O MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 



:mca 


MAC 


23-Sep" 


81 15l20 


EXTENDED STATUS 

tit ** * Wilt* WW *«» ..f, A V %r> 


TAELF 


3471 


000450 


000000 


000027 


27 




3472 


000451 


000000 


000011 

•%f v v v J^, 4* 




1 1 


3473 


000452 


000000 


000164 






3474 


000453 


000000 


oooooo 

>r V V V V "tr 







3475 


000454 


000000 


000037 

^i* V V war r 


37 




3476 


000455 


000000 


000011 




1 1 
* * 


3477 


000456 


000000 


000164 






3478 


000457 


000000 


oooooo 




o 


3479 


000460 


000000 


000067 


67 




3480 


000461 


000000 


000011 




1 1 


3481 


000462 


000000 


000164 




IMMCMD 


3482 


000463 


000000 

w V V w V V 


oooooo 

v w v ikr v v 




A 


3483 


000464 


000000 

V Vf V V V Vr 


000047 


47 




3484 


000465 


000000 


ooooit 




1 1 
* * 


3485 


000466 


oooooo 


000164 




4k * 1 r» Vr Inf. he 


3486 


000467 


000000 

V \f V V \if 


oooooo 

V V >f V 







3487 


000470 


oooooo 


000077 


77 




3488 


000471 


oooooo 


000011 




1 1 


3489 


000472 


oooooo 


000164 




IMMCMD 


3490 


000473 


oooooo 


oooooo 




o 


3491 


000474 


oooooo 


0000S7 


57 




3492 


000475 


oooooo 


000011 




1 1 
* * 


3493 


000476 


oooooo 


000164 




IMMCMD 


3494 


000477 


oooooo 


oooooo 







3495 


000500 


oooooo 


oooooo 

w ^jF >iF >yr 







3496 


000501 


oooooo 


000331 




131 


3497 


000502 


oooooo 


000164 




IMMCMD 


3498 


000503 


oooooo 


oooooo 

%r >r " v 




o 


3499 


000504 


oooooo 


000227 


227 




3500 


000505 

>r "V W XjF -tyf 


oooooo 

V V » w V V 


000021 




21 


3501 


000506 


oooooo 


000164 




IMMCMD 


3502 


000507 


oooooo 


oooooo 

\f \f V v V 




Q 

Si 


3503 


000510 


oooooo 

\F >f fl0 \f W 


000004 


4 




3504 


000511 


oooooo 


000001 

\f \f V V* V 4» 




i 

.4 


3505 


000512 


oooooo 

^kf v ^ w v %f 


000170 

v y v # f v 




v# * ▼ W V M 


3506 


000513 


oooooo 


oooooo 




V 


3507 


000514 


oooooo 


000364 


364 

v*F ^* 




3508 


000515 


oooooo 


000001 




1 

* 


3509 


000516 


oooooo 


000170 




SNSCMD 


3510 


000517 

V w v v # 


oooooo 


OOOOOO 







3511 


000520 


777777 








3512 


000521 


oooooo 


000001 




i 


3513 


000522 


oooooo 


000174 




BADXf R 


3514 


000523 


oooooo 


OOOOOO 

*F V W *^ T^ff >T 




A 

V 


3515 


000524 




777777 


• 1 




3516 


000525 


oooooo 


000001 




1 


3517 


000526 


oooooo 


000174 




BADXFR 


3518 


000527 


oooooo 


OOOOOO 
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;25 ERASE GAP 

?27 WRITE TAPE MARK 

;31 FORWARD SPACE RECORD 

?33 BACK SPACE RECORD 

>35 FORWARD SPACE FILE 

J 37 BACKWARD SPACE FILE 

HI TEST I/O 

#43 DATA SECURITY ERASE 

145 SENSE 

J 47 SENSE RESERVE 

;5i 

#53 



DXMCA - DX2Q-V10Q MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 



ir ri v* n 


MAC 


2 3«*S#D««* 


81 15:20 


EXTENDED STATUS 


TABLE 




000530 


777777 


777777 


Ml 1 




3520 


000531 


000000 

V V V V V V* 


000001 

V V V V V A 




1 

* 


3521 


0005 32 

VVV JJifc 


000000 

V V V V# V V 


000174 




BADXFR 


^9 *7 4* 4B» 


000533 


000000 

V V V V V V 


oooooo 

V v V V V V 







3523 


000534 

V ' V "Sir ™ 


777777 


777777 


m% 

X 




3524 


000535 

V V V *I *j 


000000 

V V* V V V v 


000001 

V V V V V JL 




1 


3525 


000536 


000000 

V V V v V V 


000174 




BADXFR 


IK? ft 


000537 
V/ v V ^? «5 r 


000000 
www 


oooooo 

\r W V »/ v V 







«v ^ 4* # 


000540 

V V V a T! V 


000000 

v v v v v v 


000001 


1 

X 




3528 

.3 46 © 


000541 


000000 


000101 

VV V * V Jk 




101 

X V X 


Jl *J * * 


000542 

UVV^f ft 


000000 

V V w V V V 


000166 

V V V * vw 




WRTCND 


J ~> *j V 


000543 


000000 

V V V V V V 


oooooo 

\l \f X? V# \f \J 







3531 


000544 


000000 

V V V V V V 


00001 3 


13 

X' J 




3532 

■mf ^ m* 


000545 


000000 

V Vf W W V V 


000001 




1 


3533 


000546 


000000 

V V V V V V 


000166 






£ ^^«t 


000547 


000000 

V V w v V 


oooooo 






V 


3535 


000550 

V V V v 13 w 


000000 

V V V V V V 


00021 3 


213 




3536 


000551 


000000 

V V w v v V 


000101 

V vv * V ■# 




101 

X v x 


3537 


000552 

Vv V? J* 


000000 

v v V V v V 


000166 






353g 

4? 


000553 


000000 

W V V \r V V 


oooooo 

V V V V V V 




o 


^ gi *p 7 


000554 

v V V <3* »Jr *Sf 


77 7 777 

f r t ( t f 


777777 

f f t r f r 


X 






00 0^55 

V v V 5 3 




W V v v V 


000001 

V V V V V A 




1 


3541 

TP 4 


000556 

V V V >JF 4? V 


000000 

V V V V V V 


000174 




BADXFR 


^ ^P*f 4& 


000557 

V v V %J 9 f 


000000 

V V V V v V 


oooooo 

V V V V V V 







3543 


000560 


000000 

V \jr v v v v 


000002 

V V V V V Me 


2 




3544 


000561 


000000 

V V w V W Vf 


oooooo 

V V V V V V 







3545 


000562 


000000 

V V V V V V 


000167 

V V V J» V f 






3546 


000563 

V V V *r V if 


000000 


oooooo 







3547 


000564 

V v V %f V " 


777777 


777777 


•1 

* 






00 565 


00000 

V V W V V 


000001 

\t v/ v v v x 




1 

X 


3*%4Q 


000566 

V V V %? V V 


00 00 

V W v v v 


000174 

v v v x i ~ 




BADXFR 


3 v 


000567 


000000 

V V V V V V 


oooooo 

v v w w 







*J v * 


fi 0057 

V v v «3r f V 


000000 
v v v v w 


oooooo 

www 









0005 71 
V Vv£* / X 


000000 

VVVvVV 


000001 

v v v v v A 




1 

X 


,3 a 


00057 2 

VV V F «• 


000000 
v v w v v/ 


0001 7 1 






3554 


000573 


000000 

V V V V V V 


oooooo 

v V V V V V 






V 


a ^ 


000574 


000000 


000014 

V V V v x *t 


14 

X "* 




3556 


000575 


oooooo 


000100 




100 


3557 


000576 


000000 


000167 




RDCMD 


3558 


000577 


oooooo 


oooooo 








MACRO %53B(1155) 15:46 15-Feb-82 Page 
;55 

?57 

?61 WRITE DATA 

;63 WRITE DIAGNOSTIC 

?65 LOOP WRITE TO READ 

;67 

?7l READ DATA 
?73 

f75 DUMP STATUS 

?77 READ REVERSE 



DXMCA « 
DXMCA 

3559 
3560 
3561 
3562 
3563 
3564 
3565 
3566 
3567 
3568 
3569 
3570 
3571 
3572 
3573 
3574 
3575 

3576 
3577 
3578 
3579 
3580 
3581 
3582 
3583 
3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 



DX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4.7 
MAC 23-Sep-81 15J20 EXTENDED STATUS TABLE 
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000620 
000621 
000622 
000623 
000624 
000625 
000626 
000627 



777777 

000000 
000000 
000000 
000000 
000000 
777777 
777777 



777777 
000005 
000004 
000006 
000005 
000011 
777777 
777777 



f DRIVE 
J THIS 
JDRIVE 
; INDEX 
;EDIT 



000600 


000000 


000000 


PRVMODJ 


000601 


000000 


000063 


63 








; [13 153 


000602 


000000 


000163 


163 


000603 


000000 


000263 


263 


000604 


777777 


777777 


-1 


000605 


000000 


000043 


43 


000606 


000000 


000143 


143 


000607 


000000 


000243 


243 


000610 


777777 


777777 


-1 


000611 


777777 


777777 


-1 


000612 


777777 


777777 


•1 


000613 


000000 


000313 


313 


000614 


000000 


000303 


303 


000615 


000000 


000323 


323 


000616 


777777 


777777 


-1 


000617 


777777 


777777 


-1 



MODE COMMANDS 
TABLE CONTAINS THE COMMAND BYTE TO SEND FOR EACH 
DENSITY SELECTED 
BY CODE RECEIVED 
CI 3 CORRECTS CODE FOR 7 TRK, 556 Bpl 

?N0 MODE SET TO BE 
;7 TRACK, 200 BPI # 
?7 TRACK, 556 BPI, 
9 tilt TRACK, 556 BPI 
?? TRACK, 800 BPI, 
; ILLEGAL 

;7 TRACK, 200 BPI, 
;7 TRACK, 556 BPI, 
;7 TRACK, 800 BPI, 
; ILLEGAL 
; ILLEGAL 
; ILLEGAL 

;9 TRACK, 800 BPI 
?9 TRACK, 1600 SPI 
?9 TRACK, 6250 BPI 
t ILLEGAL 
; ILLEGAL 

; DATA PACKING MODES 

?THIS TABLE CONTAINS THE NUMBER OF BYTES PER WORD 
;FOR EACH DATA MODE 



ISSUED 
ODD PARITY 
ODD PARITY 
, ODD PARITY 
ODD PARITY 

EVEN PARITY 
EVEN PARITY 
EVEN PARITY 



t INDEX BY DATA MODE CODE 



DATMODS 



-1 

5 
4 
§ 
5 
9 
-I 



; ILLEGAL 
;CORE DUMP 

y INDUSTRY COMPATIBLE 
JSIXBIT 

; ascii 

? HIGH DENSITY (BYTES/2 WORDS) 
? ILLEGAL 
; ILLEGAL 



DXMCA - 
DXMCA 



DX20-V100 MAGNETIC TAPE 
MAC 23-Sep-81 15J20 



SUBSYSTEM MICRO-CODE VERSION 4.7 
EXTENDED STATUS TABLE 







refii 






A A A A 1 A 
U v v O J U 




A A A A 1 1 
V U v O J X 


i a a a 


A A A A 1 7 


Joy i 


A A A A 1 1 
U v U O J J 


i a a*? 

JO v Z 


A A A A 1 A 












A A A A 1 A 

V v V O J O 


i a a a 
Jo Uo 


A A A A 1 7 


1 A A 7 


AAA A A A 




A AAA A 1 
U U v O % A 






1 A 1 A 


A A A A A 

U U 1/ O ^ 4 


1A1 1 
JO X 4 






AO AA1 


Jo I J 


A A A A Ail 




A AAA At* 


1 A 1 ft 
JO JL 3 


A A A AAA 


JO * 




1 a t 7 


A A A&A7 

U V V v Tt f 


Jo 1 o 


A A A A ft A 


1 A 1 Q 

JO J. 7 


A A A & Ki 


1&90 

£0 * V 


A A A fs ft 


«3 v* * 


OO0fi**l 


1 A 7 *> 
JO A A 




1 A71 

JO 46 -3 


A A A A ft A 


O 46 


ft «i 


1 AOft 
JO^O 


A A A Aft A 


JO *w 


A A A A ft 7 


Jo / / 






A A A A A A 


JO/!? 


A A A A A 4 


it, ti a 
Jo J v 


A A A A A 
V v V O 4 


Jo J * 


A A A A A 1 
v U V J 


Jo J/ 


A A A A A A 


1 A 1 1 
JO J J 


A A A AA 1% 


JO J^« 






AAA A A A 


1 A 1 A 
JO JO 


A A AAA"! 


1 A 17 
JO J / 


A A A A 7 A 


1 A 1ft 

JO Jp 


A A A A 7 1 


1 A 1Q 

Jp J^ 


A A A A 7 *y 

V V V O / 4(5 


1 A A A 




1 A A t 


A A A A 7 1 
V vUO / J 


J O 4 


A A A A 7 A 
v V vO r 


1& A 1 

JOtI J 


A A A A7ft 


1 A A A 


A A A A 7 A 

v v V v / O 




000&77 


3646 


000700 


3647 


000701 


3648 


000702 


3649 


000703 


3650 





A A A A A A 


A A A A 1 A 
V U V V J u 


A A A A A A 
VUvvvv 


A A A A A A 


A A A A A A 

v v v V V V 


A00 1 AO 

V v V I V 


000000 


000230 


000000 


000060 


000000 


000040 


A A A A A A 
vUUvvv 


A A A A 1 A 

vvvvlv 


A A A A A A 

V v V V v V 


000 1 *%A 


A A A A A A 


A AAO AA 


000000 


000100 


A A A A A A 


A A A A A7 
V V v O *| / 


A A A A 

v v v W V V 


A AOftftA 


A A A A A A 
vUvvUv 


A A A A A A 
V U v O v 


000000 


000666 


000000 


000673 


A A A AAA 
vvvvvU 


A A A A ft A 


A A A A A A 


A00ft7 


000000 


000053 


000000 


000052 


oooooo 

V v v V V V 


0000** t 

VV w ij j, 


A A A A A A 


A A A07A 


00000 

VVVVvV 


000057 

V V V V 4* f 


A A A A A A 


A A A A 7 


000000 


000021 


A A A A A A 
VUvvUU 


AAA i A A 
VvUiOv 


A A A A A A 
VvvVVv 


A A A 1 7 7 
y v V 1 f 1 


A A A AAA 


AAA 1 7 A 

Uvvl /O 


A A A A A A 
V V v U V U 


A A A 1 £1 

y yu i o J 


000000 


000162 


000000 


000161 


A A A A A A 


A A A7ftA 

v y y d o y 


A A A A A A 


A A A 7 ft 7 


A A A A A A 
Vvvvvv 


A A A 7 ft 1 


A A A A A A 
uvvvyv 


A A A7ft 7 
v V V * 9 £ 


A 

V VI V V v v 


5 ft 1 

v v v 4& <3 J, 


A A A A A A 


A A A t 7 A 


000000 

V V V V V v 


0001 37 


000000 


000131 


000000 


000130 


000000 


000127 


000000 


000136 


000000 


000123 


000000 


000122 


000000 


000121 



I FORMATTER START ADDRESSES 

FMTWRTi 30 


140 
230 
60 

FMTRDJ 40 
10 
150 
240 
100 

FMTRDBJ RDB1 

RDB2 
RDB3 
RDB4 

RDS5 

50 
57 
53 
52 
51 

20 
27 
22 
21 

RDB3: 160 
177 

176 
163 
162 
161 

R0B4I 250 

257 
253 
252 
251 

RDiSt 120 
137 
131 
130 
127 
136 
123 
122 
121 



RDBlf 



RDB2S 
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;C0RE DUMP WRITE START ADDRESS 

? BYTE MODE 

jSIXBIT 

; ASCII 

;HI-DENSITY 

;C0RE DUMP READ FORWARD START ADDRESS 

;BYTE MODE 

jSIXBIT 

f ASCII 

fHI-DENSITY 

iTABliE ADDRESS OF READ BACKWARD START ADDRESSES 
fCORE DUMP 
J BYTE MODE 
fSIXBIT 
fASCII 
HI-DENSITY 

y CORE DUMP READ BACKWARD* FULL WORDS 
f% EXTRA BYTE 
;2 EXTRA BYTES 
;3 EXTRA BYTES 
;4 EXTRA BYTES 

;BYTE MODE READ BACKWARD, FU^L WARDS 
;l EXTRA BYTE 
$% EXTRA BYTES 
;3 EXTRA BYTES 

;SIXBIT MODE READ BACKWARD, fUbh WORDS 

fl EXTRA BYTE 

; 2 EXTRA BYTES 

;3 EXTRA BYTES 

;4 EXTRA BYTES 

;5 EXTRA BYTES 

? ASCII MODE READ BACKWARD, FUfeli WORDS 
?1 EXTRA BYTE 
| 2 EXTRA BYTES 
| 3 EXTRA BYTES 
; 4 EXTRA BYTES 

?HI-DEMSITY READ BACKWARD, FULL WORDS 

fl EXTRA BYTE 

?2 EXTRA BYTES 

;3 EXTRA BYTES 

?4 EXTRA BYTES 

?5 EXTRA BYTES 

f6 EXTRA BYTES 

| 7 EXTRA BYTES 

f 8 EXTRA BYTES 



DXMCA • OX20-V100 MAGNETIC TAPE SUBSYSTEM MICRO-CODE VERSION 4,7 
DXMCA MAC 23«Sep-8i 15:20 EXTENDED STATUS TABLE 



3651 
3652 
3653 

NO ERRORS DETECTED 

PROGRAM BREAK IS 000000 
ABSOLUTE BREAK IS 004665 
CPU TIME USED 02:44.723 

36P CORE USED 



.END DXASZ 
END 
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ACO 


538 


539 


558 


560 


562 


563 


564 


567 


572 


574 


587 


588 


7§3 


764 


766 


767 


825 


828 


843 


855 


964 


965 


996 


999 


1135 


1136 


1153 


1160 




1161 

* * V * 


1185 


1186 


1491 


1515 


1612 


1613 


1715 


1718 


1789 


1791 


1868 


1878 


1899 




1905 


1927 


1936 


1972 


1994 


2001 


2008 


2022 


2023 


2026 


2027 


2068 


2069 
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GQSUB 


849 


893 


1026 


1043 


1157 


1618 


1820 


1822 


1824 


1828 


1934 


1836 


1909 


2092 


INC 


764 


2069 


2236 


2244 


2252 


2260 


2268 


2276 


2503 


2511 


3159 








INCH 


853 


1904 


2184 


2210 


2216 


2336 


2340 


2383 


2957 


3039 


3040 


3041 


3042 


3043 




3044 


3045 


3046 


3047 


3048 


3049 


3050 


3051 


3052 


3053 


3054 


3055 


3056 


3057 




3058 


3059 


3060 


3061 


3062 


3063 


3064 


3065 


3066 


3067 


3068 


3069 


3070 


3071 




3072 


3073 


3074 


3075 


3076 


3077 


3078 


3079 


3080 


3081 


3082 


3083 


3084 


3085 




3086 


3087 


3088 


3090 


3091 


3092 


3093 


3094 


3095 


3096 


3097 


3098 


3099 


3100 




3101 


3102 


3103 


3104 


3105 


3106 


3107 


3108 


3109 


3110 


3111 


3112 


3113 


3114 




3115 


3116 


3117 


3118 


3119 


3120 


3121 


3122 


3123 


3124 










JMP 


470 


471 


472 


473 


474 


475 


501 


503 


509 


515 


541 


543 


583 


604 




640 


646 


647 


648 


649 


650 


652 


653 


654 


664 


683 


715 


773 


800 




804 


857 


901 


952 


970 


973 


976 


1023 


1051 


1064 


1080 


1138 


1142 


1145 




1148 


1151 


1154 


1166 


1193 


1196 


1203 


1225 


1229 


1235 


1247 


1251 


1287 


1304 




1315 


1319 


1323 


1327 


1333 


1361 


1373 


1451 


1457 


1463 


1471 


1486 


1519 


1531 




1536 


1575 


1588 


1600 


1657 


1666 


1672 


1701 


1705 


1709 


1724 


1727 


1739 


1744 




1749 


1767 


1779 


1845 


1894 


1907 


1918 


1944 


1967 


1974 


1989 


1996 


2003 


2010 




2025 


2029 


2070 


2104 


2112 


2124 


2131 


2138 


2143 


2148 


2160 


2171 


2176 


2188 




2203 


2212 


2215 


2222 


2240 


2248 


2256 


2264 


2272 


2280 


2287 


2294 


2301 


2308 




2315 


4^ -3 2 Si* 


2329 


2339 


2» 3 ^ ?5 


2356 


2362 


2372 


2376 


2389 


2402 


2411 


2470 


2476 




2480 


2497 


2514 


2526 


2535 


2548 


2561 


2581 


2617 


2630 


2638 


2657 


2660 


2673 




2684 


2687 


2706 


2743 


2756 


2764 


2784 


2787 


2800 


2808 


2822 


2825 


2838 


2857 




2860 


2876 


2877 


2888 


2899 


2902 


2921 


2955 


2966 


2967 


2968 


2969 


2970 


2971 




2972 


2973 


2974 


2975 


2976 


2977 


2978 


2979 


2980 


2981 


2982 


2983 


2984 


2985 




2986 


2987 


2988 


2989 


2997 


3001 


3005 


3006 


3007 


3008 


3009 


3010 


3011 


3012 




3013 


3014 


3015 


3016 


3017 


3018 


3019 


3020 


3021 


3022 


3023 


3024 


3025 


3027 




3033 


3136 


3162 


3173 


3176 




















JMPBO 


531 


536 


595 


618 


680 


714 


791 


892 


900 


951 


972 


1042 


1050 


1063 




1205 


1216 


1245 


1301 


1372 


1388 


1401 


1419 


1448 


1450 


1556 


1587 


1593 


1595 




1649 


1654 


1687 


1776 


1862 


1890 


1903 


1929 


1931 


1933 


1935 


1963 


2067 


2137 





2140 


2643 


2670 


2683 


2770 


2797 


2811 


2821 


2846 


2885 


2898 


3157 


3242 




JMPB4 


603 


727 


760 


856 


966 


1137 


1162 


1187 


1456 


1469 


1530 


1559 


1574 


1582 




1598 


1722 


1764 


1981 


1984 


1988 


2142 


2145 


2489 


2496 


2505 


2513 


2627 


2656 




2753 


2783 


2995 
























JMPB7 


550 


561 


592 


703 


750 


835 


917 


1006 


1020 


1079 


1084 


1165 


1406 


1424 




1447 


1505 


1554 


1565 


1656 


1663 


1671 


1677 


2147 


2150 


2614 


2740 


2835 


2856 




2873 


3135 


3247 
























JMPC 


771 


864 


1792 


1879 


1906 


2099 


2211 


2214 


2217 


2219 


2221 


2224 


2371 


2954 


JMPI 


2959 
532 


639 


720 


731 


735 


747 


753 


797 


903 


919 


928 


949 


955 


958 




1053 


1069 


1088 


1097 


1134 


1159 


1163 


1173 


1179 


1222 


1275 


1312 


1353 


1370 




1386 


1399 


1404 


1417 


1422 


1445 


1454 


1460 


1467 


1527 


1552 


1572 


1580 


1585 




1652 


1661 


1669 


1675 


2101 


3240 


3245 
















JMPSUB 


527 


528 


606 


658 


659 


666 


667 


674 


700 


719 


722 


730 


733 


734 




737 


746 


751 


752 


772 


792 


802 


803 


850 


887 


894 


902 


905 


918 




921 


927 


930 


957 


975 


1027 


1037 


1044 


1052 


1055 


1068 


1075 


1087 


1090 




1096 


1099 


1158 


1178 


1209 


1217 


1227 


1228 


1234 


1239 


1240 


1250 


1271 


1272 




1273 


1274 


1281 


1282 


1289 


1292 


1308 


1309 


1310 


1311 


1314 


1317 


1318 


1321 




1322 


1325 


1326 


1329 


1332 


1348 


1352 


1355 


1360 


1475 


1492 


1512 


1532 


1603 




1619 


1628 


1631 


1634 


1646 


1650 


1668 


1680 


1681 


1690 


1692 


1699 


1703 


1707 




1713 


1723 


1726 


1729 


1730 


1737 


1738 


1741 


1742 


1743 


1746 


1747 


1748 


1821 




1823 


1825 


1829 


1835 


1837 


1863 


1910 


2063 


2093 


2464 


2600 


3153 






JMPZ 


540 


589 


607 


711 


721 


732 


736 


748 


754 


830 


844 


852 


861 


904 




920 


929 


959 


1001 


1015 


1054 


1070 


1073 


1089 


1098 


1141 


1144 


1147 


1150 




1180 


1192 


1195 


1276 


1313 


1354 


1378 


1462 


1614 


1647 


2024 


2028 


2109 


2111 




2123 


2127 


2130 


2159 


2163 


2170 


2175 


2187 


2199 


2202 


2239 


2247 


2255 


2263 




2271 


2279 


2286 


2293 


2300 


2307 


2314 


2321 


2328 


2338 


2344 


2355 


2361 


2375 




2388 


2401 


2410 


2469 


2475 


2525 


2534 


2547 


2560 


2580 


2597 


2616 


2629 


2637 




2659 


2672 


2686 


2703 


2705 


2723 


2742 


2755 


2763 


2786 


2799 


2807 


2824 


2837 




2859 


2869 


2875 


2887 


2901 


2918 


2920 


3172 


3175 












JUMP 


514 


542 


651 


1599 


1844 


1893 


1917 


1973 


1995 


2002 


2009 


2103 


3026 


3032 


LANDB 


3161 
574 


779 


824 


995 


1376 




















LAND8R 


634 


707 


2578 
























LDBR 


500 


502 


508 


510 


514 


522 


524 


542 


557 


566 


573 


581 


599 


608 




614 


619 


628 


633 


635 


651 


660 


662 


668 


670 


672 


675 


677 


681 




706 


708 


728 


741 


761 


769 


778 


785 


793 


795 


798 


817 


823 


827 




841 


849 


862 


868 


879 


893 


911 


922 


988 


994 


998 


1012 


1021 


1026 




1029 


1043 


1059 


1065 


1071 


1081 


1085 


1128 


1130 


1132 


1152 


1157 


1210 


1218 




1220 


1223 


1246 


1248 


1257 


1277 


1283 


1285 


1293 


1295 


1298 


1302 


1330 


1335 




1337 


1356 


1375 


1384 


1389 


1395 


1397 


1402 


1407 


1413 


1415 


1420 


1476 


1478 




1480 


1482 


1484 


1490 


1495 


1498 


1500 


1502 


1506 


1508 


1510 


1513 


1517 


1523 




1525 


1550 


1566 


1578 


1583 


1599 


1606 


1610 


1615 


1618 


1626 


1632 


1644 


1659 




1664 


1673 


1678 


1688 


1691 


1700 


1704 


1708 


1714 


1716 


1731 


1735 


1759 


1761 




1765 


1769 


1771 


1773 


1777 


1788 


1793 


1799 


1803 


1818 


1820 


1822 


1824 


1826 




1828 


1830 


1832 


1834 


1836 


1844 


1856 


1867 


1869 


1873 


1884 


1886 


1891 


1893 




1898 


1900 


1909 


1911 


1913 


1915 


1917 


1940 


1942 


1946 


1948 


1950 


1952 


1954 




1960 


1971 


1973 


1978 


1993 


1995 


2000 


2002 


2007 


2009 


2016 


2018 


2033 


2049 




2051 


2058 


2074 


2076 


2078 


2080 


2085 


2087 


2092 


2095 


2103 


2110 


2120 


2125 




2136 


2139 


2141 


2144 


2146 


2149 


2155 


2185 


2195 


2208 


2213 


2218 


2231 


2334 




2342 


2350 


2369 


2381 


2384 


2386 


2396 


2462 


2467 


2473 


2477 


2486 


2493 


2501 




2509 


2521 


2530 


2540 


2542 


2554 


2556 


2567 


2571 


2574 


2598 


2601 


2603 


2605 




2607 


2609 


2611 


2622 


2624 


2649 


2651 


2653 


2665 


2667 


2678 


2680 


2692 


2694 





2696 


2698 


2724 


2726 


2728 


2731 


2733 


2735 


2737 


2748 


2750 


2776 


2778 


2780 




2792 


2794 


2816 


2818 


2830 


2832 


2851 


2853 


2866 


2870 


2882 


2893 


2895 


2907 




2909 


2 9 1 1 


2913 


2915 


2939 


2948 


2991 


2999 


3026 


3032 


3125 


3129 


3131 


3138 




3147 


3161 


3167 


3169 


3183 


3185 


3192 


3195 


3238 


3243 










WMhR 


512 


520 


534 


537 


555 


820 


883 


913 


932 


991 


1035 


1094 


1104 


1241 




1436 


1439 


1533 


1576 


1589 


1651 


1787 


1815 


1838 


1872 


2020 


2056 


2061 


2064 


liDMARX 


2094 


2118 


2592 


2595 


2718 


2721 


2730 


2993 


3029 


3133 


3149 


3151 


3154 




511 


519 


533 


565 


605 


631 


704 


712 


819 


826 


882 


990 


997 


1034 




1786 


1814 


1871 


2021 


2062 


2119 


3152 












LDHEM 


521 


556 


1790 


2057 


2097 


2157 


2161 


2167 


2172 


2182 


2200 


2284 


23*13 


2317 




2367 


2373 


2398 


2407 


2635 


2700 


2761 


2767 


2804 


2996 


3030 


3031 






l*QRB 


2572 


3139 
























LORBR 


780 




























MOV 


702 


713 


744 


759 


787 


789 


821 


834 


870 


873 


899 


992 


1005 


1049 




1062 


1076 


1212 


1214 


1259 


1279 


1290 


1350 


1358 


1437 


1438 


1441 


1464 


1515 




1648 


1684 


1718 


1720 


1733 


1936 


3127 












MOVB 


513 


523 


525 


558 


575 


582 


600 


609 


615 


620 


629 


630 


661 


663 




669 


671 


673 


676 


678 


682 


729 


742 


745 


762 


765 


768 


770 


786 




788 


794 


796 


799 


818 


825 


840 


869 


872 


875 


886 


912 


923 


989 




996 


1011 


1036 


1060 


1066 


1077 


1082 


1086 


1129 


1131 


1133 


1153 


1211 


1213 




1219 


1221 


1224 


1249 


1258 


1260 


1263 


1266 


1278 


1280 


1284 


1286 


1291 


1294 




1296 


1297 


1299 


1303 


1331 


1336 


1338 


1339 


1351 


1357 


1359 


1385 


1390 


1396 




1398 


1403 


1408 


1414 


1416 


1421 


1442 


1465 


1477 


1479 


1481 


1483 


1485 


1491 




1496 


1499 


1501 


1503 


1507 


1509 


1511 


1514 


1516 


1518 


1524 


1526 


1551 


1567 




1579 


1584 


1607 


1611 


1616 


1625 


1627 


1643 


1645 


1660 


1665 


1674 


1679 


1689 




1715 


1717 


1719 


1721 


1732 


1734 


1736 


1760 


1762 


1766 


1770 


1772 


1774 


1778 




1789 


1794 


1800 


1801 


1802 


1804 


1805 


1819 


1827 


1831 


1833 


1857 


1868 


1870 




1876 


1885 


1887 


1892 


1899 


1901 


1912 


1914 


1916 


1937 


1941 


1943 


1947 


1949 




1951 


1953 


1955 


1961 


1972 


1979 


1994 


2001 


2008 


2017 


2019 


2034 


2035 


2036 




2037 


2038 


2039 


2040 


2041 


2042 


2043 


2044 


2045 


2046 


2047 


2048 


2050 


2052 




2059 


2075 


2077 


2079 


2081 


2086 


2088 


2096 


2121 


2128 


2156 


2196 


2209 


2232 




2237 


2245 


2253 


2261 


2269 


2277 


2335 


2351 


2382 


2463 


2478 


2502 


2510 


2522 




2531 


2541 


2543 


2555 


2557 


2568 


2573 


2575 


2599 


2602 


2604 


2606 


2608 


2610 




2612 


2623 


2625 


2650 


2652 


2654 


2666 


2668 


2679 


2681 


2693 


2695 


2697 


2699 




2725 


2727 


2729 


2732 


2734 


2736 


2738 


2749 


2751 


2777 


2779 


2781 


2793 


2795 




2817 


2819 


2831 


2833 


2852 


2854 


2867 


2871 


2883 


2894 


2896 


2908 


2910 


2912 




2914 


2940 


2943 


2946 


2949 


2992 


3000 


3126 


3128 


3130 


3132 


3137 


3140 


3148 




3168 


3170 


3184 


3186 


3193 


3196 


3239 


3244 














MOVMEM 


535 


538 


568 


569 


570 


571 


637 


638 


710 


829 


843 


881 


914 


933 




936 


937 


938 


939 


940 


941 


942 


943 


944 


948 


953 


954 


9S6 


963 




967 


974 


1000 


1014 


1033 


1095 


1105 


1108 


1109 


1110 


1111 


1112 


1113 


1114 




1115 


1116 


1120 


1167 


1177 


1184 


1200 


1233 


1242 


1440 


1443 


1444 


1453 


1458 




1466 


1470 


1534 


1535 


1591 


1596 


1623 


1624 


1633 


1839 


1874 


1875 


2060 


2065 




2068 


2168 


2173 


2183 


2358 


2368 


2399 


2408 


2570 


2577 


2593 


2719 


2994 


3134 




3150 


3155 


3158 
























NAME 


5# 


5 


























NOP 


968 


969 


1201 


1202 


1560 


1561 


1562 


1563 


1877 


1888 


2108 








OSB 


1072 


1140 


1377 


1461 


2122 


2126 


2129 


2186 


2198 


2238 


2246 


2254 


2262 


2270 




2278 


2343 


2360 


2387 


2400 


2409 


2468 


2474 


2524 


2533 


2546 


2559 


2579 


2917 


OSBC 


874 


1265 


2945 
























OSM 


2023 


2027 


2158 


2162 


2169 


2174 


2201 


2285 


2292 


2299 


2306 


2313 


2320 


2327 




2354 


2374 


2636 


2702 


2762 


2806 


















REfURM 


551 


576 


590 


610 


621 


1267 


1340 


1379 


1380 


1391 


1409 


1425 


1568 


1604 





1 60S 


1620 


1629 


1635 




2164 

* 4 V » 


2177 


2189 


2204 




2515 


2536 


2549 


2562 




3232 


3248 






ROTti 


885 










859 


2951 


2952 






726 


749 


855 


884 


shlr 


563 


564 


858 


2352 




530 


593 


594 


602 




1215 


1243 


1244 


1449 

*f ** ^ 




1934 


1965 


1966 


1982 




2810 


2845 


3156 




TABLE 


354# 


645 








560 


863 


871 


1262 

JL m W •«* 


TSM 


29S3 








TSMR 


2956 








9 l*i *~ 


3651 








# •*» * * 


464 








• LOC 


1848 


2962 






,MEM 


3252 








, MNEXT 


362# 


3420 







1682 


1693 


1795 


1806 


1840 


2225 


2330 


2346 


2363 


2377 


2582 


2707 


2922 


2960 


3141 


916 

n» # V 


965 


1019 


1136 


1161 


2359 


2950 








617 


790 


836 


837 


838 


1529 


1555 


1558 


1592 


1594 


1983 


1986 


1987 


2066 


2397 



2942 



1938 


1956 


2113 


2132 


2151 


2390 


2412 


2419 


2471 


2479 


3177 


3187 


3197 


3212 


3222 


1186 










839 


1007 


1008 


1009 


1010 

4k m w 


1597 


1685 


1686 


1930 


1932 


2406 


2488 


2495 


2642 


2769 



**END»* Job DX2QCA Reg #100 for DEUFEL.TL Date 3*Mar-82 14:49:28 Monitor i 2102 TOPS-20 Development System, TQPS-20 Moni **END** 



mend** Job DX20CA Rea #100 for DEUFEL.TL Date 3*M«r*82 14:49:28 Monitor: 2102 TOPS-20 Development System, TOPS-20 Moni **end** 



***LPTSPL Run i» o g * * * 



LPTSPL version 104(2744) 2102 TOPS-20 Development System, fOPS-20 Moni 

Job DX20CA sequence #183 on Printer I at 3-Mar-82 14:29:43 
Starting File KNET:<DEUFEL.TL>DX20CA.L5T,t 
Finished File KNET:<DEUFEL»TL>DX20CA,LST, 1 
Starting File K!$ET:<DEuFEL.TL>DXMCA.LST. 1 
Finished File KNET:<D£UFEL,TL>DXMCA.LST,1 
Summary: 304 Pages of Output 
113 Disk Pages Read 
8,596 Seconds CPU Time Used 



**END** Job DX20CA Reg #100 for DEUFEL.TL Date 3-Mar-82 14:49:28 Monitors 2102 TOPS-20 Development System, TOPS-20 Moni memo** 



mend** Job DX20CA Reg #100 for deufel.tl Date 3-Mar-82 14:49:28 Monitor: 2102 tops«20 Development system, tops-20 Moni mend** 



**END** Job DX20CA Reg #100 for DEUFEL.TL Date 3-Mar-82 14:49:28 Monitor: 2102 TOPS-20 Development System, TOPS-20 Moni **END** 



**end»* Job DX20CA Reg #100 for DEUFEL.TL Date 3-Mar-82 14:49:28 Monitor: 2102 TOPS-20 Development System, TOPS-20 Moni mend** 



**end** Job DX20CA Reg #100 for DEUFEL.TL Date 3-Mar-82 14:49:28 Monitors 2102 TOPS-20 Development System, TOPS-20 Moni mend** 
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